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Abstract 

r 

This  study  investigates  the  -feasibility  o-f  using  a 
microcomputer  to  calculate  system  reliabilities.  The 
computer  program,  written  in  Pascal  on  an  Apple  II 
computer,  uses  interactive  graphics  to  allow  a  user  to 
manipulate  a  system  of  components.  The  components  are 
limited  to  a  constant  reliability  in  parallel  and  series 
structures.  Once  a  calculation  has  been  made,  the  user  can 
then  reconfigure  the  system  and  recalculate  the 
reliability.  This  technique  may  provide  insights  to  how 
the  system  reliability  changes  as  components  are  changed. 

The  appendices  include  the  system  configuration. 

User’s  Guide,  Programmer’s  Guide,  and  program  listing.!^ 
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I _ Introduction 

System  reliability  is  a  major  question  for  a  wide 
variety  of  people  and  concerns.  It  is  easy  to  imagine  a 
need  for  reliability  calculations,  without  access  to  a 
machine  that  could  provide  the  answer  or  where  time  to  do 
the  calculations  by  hand  is  not  available.  In  the  past, 
the  large  scale  computer  facility  could  provide  such 
support  for  a  specific,  preprogrammed  problems,  but  very 
often  this  support  was  not  available  to  a  small  scale 
operation.  Any  needed  computations  would  have  to  be 
carried  out  by  hand:  a  tedious  and  error  prone  process  at 
best.  This  study  is  an  attempt  to  fill  the  gap  by  using  an 
inexpensive  mi crocomputer  to  provide  an  automated  solution 
technique  to  the  system  reliability  problem. 

Background 

Topic  Area.  The  main  topic  area,  reliability  theory, 
has  received  a  reasonable  amount  of  research  attention. 

The  area  of  interest  important  to  this  study  lies  with  the 
work  done  with  parallel  and  series  structures  of 
components.  The  mathematical  equations  used  for 
determining  the  reliability  of  a  system  of  components  with 
known  reliabilities  are  well  documented  in  any  number  of 


sources;  Hillier  and  Lieberman  (Ref  6)  provide  a  reasonable 
discussion  of  these  equations.  Figure  1  presents  the  fora 
of  the  reliability  equations.  This  study  Mill  autoaate  the 
evaluation  of  these  equations  to  provide  the  reliability 
calculations  for  a  user  defined  system  of  Components. 


Parallel  =  1  -  (1-R1)(1-R2)  ...  (1-Rn) 

Series  =  R.  x  R0  x  . . .  x  R 
12  n 

where  R^  is  the  individual  component  reliability. 


Figure  1.  Reliability  Equations 

Related  Research.  Related  areas  of  interest  involve 
the  choice  of  a  microcomputer,  graphic  subsystem  and 

language  to  support  the  study;  then  the  application  of  the 

* 

technology  to  provide  a  useful  tool.  Any  of  the  many 
microcomputers  on  the  market  today  could  have  been  used  to 
support  this  study.  A  decision  was  made  to  write  the 
program  in  a  standardized,  high  level  programming  language 
to  allow  the  results  to  be  used  on  as  many  different 
machines  as  possible.  Machine  availability  was  also  a 
constraint,  an  Apple  II  was  readily  available.  This 
particular  microcomputer  supports  both  Fortran  and  Pascal. 
The  Apple  machine  was  a  good  choice  for  two  other  reasons! 
the  Apple  II  is  widely  aval labile,  and  the  UCSD  Pascal 
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system  supported  by  the  Apple  is  becoming  an  industry 
standard  (Ref  10:v). 

The  Pascal  language  was  designed  to  aid  the  beginning 
programmer  in  learning  programming  techniques  while 
affording  the  advanced  programmer  the  power  of  an  Algol 
like,  block-structured  language.  Examples  of  block 
strctures  are  I F-THEN-ELSE ,  DO-WHILE,  CASE-OF, 

REPEAT-UNTIL,  and  procedures.  These  structures  of  the 
language  readily  provide  for  self  documenting  code.  Two 
important  features  of  Pascal  are  the  flexible  data 
structures  and  recursion.  Data  flexibility  allows  the  user 
to  structre  the  data  in  the  most  convient  form,  depending 
on  the  desired  objective;  for  example,  minimum  amount  of 
memory  per  element,  computation  speed,  access  speed,  or 
even  readability.  Recursion,  calling  a  routine  from  within 
that  routine,  is  very  important  aspect  of  reducing  the  code 
needed  to  handle  problems,  especially  if  the  data  can  be 
structured  to  be  handled  by  recursive  routines.  Two 
specific  applications  of  both  of  these  techniques  will  be 
discussed  in  Chapter  3.  An  excellent  discussion  of  Pascal 
is  provided  by  Jensen  and  Wirth  (Ref  7).  The 
Turtlegraphics  subsystem  of  UCSD  Pascal  has  been 
implemented  for  the  Apple  and  supports  all  of  the  protocols 
of  the  UCSD  Pascal  System,  thus  providing  the  designer  with 
a  great  deal  of  power  and  flexibility  on  the  graphics 
screen.  An  excellent  discussion  of  the  Apple 
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implementation  of  the  UCSD  Pascal  Operating  System  is 
provided  by  Lewis  (Ref  10).  The  specific  configuration  of 
the  Apple  II  system  used  for  this  study  can  be  found  in 
Appendix  1. 

Several  other  areas  were  also  explored  before  design 
of  the  program  started.  The  first  area  was  that  of  circuit 
theory  (Ref  1,  5,  8).  The  computer  has  been  used  in 
several  applications  for  generating  circuits  using  graphics 
capability.  Most  applications  are  closed  loop  in  nature 
and  would  not  fit  in  with  the  network  structure  of  the 
reliability  system.  The  applications  are  most  useful  for 
circuit  layout  and  positioning,  but  this  would  not  be  the 
case  for  this  design. 

The  second  area  explored  concerned  algorithms  designed 
to  find  the  shortest  path  or  K  shortest  paths  through  a 
network  (Ref  9,  12,  16).  Other  algorithms  dealt  with 
finding  the  most  reliable  route  and  the  N  most  vital  links 
(Ref  13,  17).  These  articles  most  often  were  designed  to 
aid  the  user  performing  manual  calculations.  The  purpose 
of  this  program  is  to  automate  these  calculations.  Further 
search  of  the  literature  was  abandoned  as  no  specifics  for 
the  topic  as  applied  to  automated  calcution  using 
interactive  graphics  were  found. 
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Study  Overview 

Objectives.  The  objective  of  this  study  is  to 
determine  the  feasibility  of  using  a  microcomputer  for 
interactive  reliability  systems  generation  and  calculation. 
Through  making  use  of  the  graphics  capability  of  the 
microcomputer ,  the  user  can  view  a  representation  of  the 
system  as  it  is  generated.  Success  in  meeting  these 
objectives  rely  on  the  software  providing  the  results  of 
the  user's  input  within  a  reasonable  time  .  This  time 
should  not  exceed  a  maximum  of  several  seconds  to  preclude 
user  dissatisfaction  and  abandonment  of  the  system. 

Scope-Limitations.  The  scope  of  this  study  will  be 
limited  to  reliability  systems  with  independent  components 
and  constant  component  reliabilities.  The  first  assumption 
insures  that  each  component  reliability  is  not  affected  by 
any  other  component.  This  condition  must  be  met  to  use  the 
deterministic  equations  to  solve  for  the  system 
reliability.  Because  of  this  condition,  the  relaxation  of 
this  assumption  is  impossible  for  this  study.  The 
independence  assumption  is  reasonable  for  a  large  portion 
of  the  reliability  field.  However,  some  of  the  work  done 
in  reliability  theory  concerns  dependent  components  and  is 
the  way  a  significant  number  of  real  world  systems  behave. 
The  second  assumption  is  convenient  for  a  feasibility  study 
as  many  real  world  systems  may  be  approximated  in  this 
fashion.  This  limitation  may  indeed  be  relaxed  to  allow 
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the  reliability  of  any  or  all  components  to  be  a  function 
of  time.  This  is  discussed  in  Chapter  3  as  a  possible 
extension  to  a  more  general  solution  of  the  system 
reliability  problem. 

Several  other  limitations  exist.  The  intent  of  these 
limitations  is  not  to  limit  the  form  of  the  system,  but  to 
provide  reasonable  limits  for  a  feasibility  study.  In 
actual  use,  these  limits  could  be  easily  changed  to  suit  a 
specific  user’s  requirements.  An  arbitrary  limit  of  lOO 
components  located  on  a  20  by  20  grid  has  been  set  for  the 
study.  Any  single  component  may  be  in  parallel  with  a 
maximum  of  six  other  structures.  Any  input  series 
structure  is  limited  to  a  maximum  of  eight  components.  The 
reliability  of  any  individual  component  will  be  displayed 
as  a  two  digit  rounded  percentage,  but  the  program  will 
allow  an  eight  digit  input  reliability  while  the  Apple 
system  can  maintain  a  maximum  of  32  bits  (approximately  7 
significant  digits)  of  accuracy  for  real  numbers  (Ref  3,  pg 
85).  The  program  is  not  yet  able  to  interface  with  a  mass 
storage  device,  thus  the  saving  of  a  generated  system  is 
not  supported;  this  will  also  be  discussed  as  a  program 
extension.  The  program  is  interfaced  with  a  printer  to 
allow  for  a  representation  the  generated  system  to  be 
printed.  This  feature  uses  a  standard  80  column  printer 
format. 
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Hardware  limitations  also  exist.  The  Apple  allows  for 
a  matrix  of  280  (horizontal)  by  192  (vertical)  addressable 
dots  on  the  graphics  screen.  Thus  the  graphics  capability 
only  allows  for  a  maxi mi um  of  a  10  by  10  grid  of  components 
to  be  reasonably  displayed  at  any  one  time.  The  Apple 
Pascal  system  has  a  limited  amount  of  memory  (44K  8  bit 
bytes)  available  for  use  by  the  programmer.  This  amount  is 
reduced  to  34K  when  using  the  graphics  screen.  The  amount 
is  not  a  critical  limit,  as  the  Pascal  system  allows  the 
programmer  to  segment  the  code  to  fit  the  available  space. 
This  is  at  the  cost  of  execution  speed  because  the  system 
must  interact  with  the  mass  storage  device  to  overlay  the 
active  code  into  memory.  An  intermediate  version  of  the 
code  did  not  require  segmentation;  but  in  the  interest  of 
follow  on  program  modification,  a  decision  was  made  to 
segment  the  program  into  four  logical  parts  to  insure 
memory  was  available  for  modifications  and  extensions.  The 
time  delays  introduced  by  segmentation  are  not  significant, 
as  they  occur  at  normal  break  points  in  the  operation  of 
the  program. 
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II _ Methodology 


This  chapter  Mill  provide  an  overview  of  the  system 
reliability  program.  The  topics  to  be  discussed  will  be 
system  capabilities,  data  structures,  and  rationale  for 
segmentation.  Finally,  there  will  be  a  discussion  of  each 
main  program  segment,  -focusing  on  the  procedures  and  the 
underlying  algorithms.  The  discussion  will  be  general  in 
nature  as  the  specifics  of  operation  may  be  found  in 
Appendix  2,  the  User’s  Guide,  while  the  specifics  of  the 
program  may  be  found  in  Appendix  3,  the  Programmer's  Guide 
Program  Overview 

Capabi 1 i ties.  The  capabilities  of  the  progam  allow  a 
user,  with  minimal  knowledge  of  reliability,  to  generate  a 
system  of  parallel  and  series  structures,  edit  the  system 
to  user  satisfaction,  and  calculate  the  reliability  of  the 
system.  After  each  calculation  the  user  has  the  option  of 
obtaining  a  hard  copy  a  representation  of  the  system.  The 
user  may  then  edit  the  system  to  calculate  the  reliability 
of  a  slightly  different  configuration.  This  edit 
capability  allows  a  user  to  conveniently  perform  online 
sensitivity  analysis.  The  user  may  then  reinitialize  the 
system  grid  and  construct  a  new  system. 

The  program  design  allows  for  easy  changes  in 
capabilities.  The  limits,  grid  size  and  the  number  of 
components  in  the  grid  and  each  structure,  are  coded  as 
Pascal  constants.  Thus,  the  data  grid  and  data  structures 
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can  be  modified  by  simply  changing  several  constants  and 
then  recompiling  the  program.  There  are  several  procedures 
that  currently  contain  no  active  code}  this  is  to  provide 
for  future  extensions.  The  desired  code  can  be  inserted 
into  the  procedure  stubs  because  the  existing  structure 
already  provides  for  the  implementation  of  the  extensions. 

Data  Structure.  The  data  types  available  in  Pascal 
are  very  flexible  and  can  be  adapted  to  meet  almost  any 
need.  They  are  available  in  two  different  types, 
unstructured  and  structured.  The  unstructured  types  are 
constants  and  variables  used  in  a  program.  These  are  very 
simple  and  are  discussed  in  Appendix  3,  the  Programmer's 
Guide. 

This  program  makes  use  of  two  of  the  structured  types: 
the  record  and  the  array.  The  record  structure,  called  a 
node  in  the  program,  was  configured  to  hold  the  data  for 
each  component.  Associated  with  each  node  is  a  pointer 
that  is  the  starting  location  for  the  record  in  memory. 

Each  node  contains  pointers  to  the  next,  the  previous,  and 
the  parallel  components  to  the  component  represented  by  the 
node.  Each  node  also  contains  the  component's  integer  grid 
(ordered  pair)  location,  a  two  character  identification 
tag,  and  a  real  number  representing  the  component 
reliability.  Each  node  can  use  up  to  fourteen  words  of 
memory  depending  on  system  constants.  The  current 
configuration  uses  twelve  words  per  node.  This  memory  is 
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dynamically  allocated  when  a  new  node  is  inserted  into  the 
grid  by  the  user.  A  maxi mi urn  of  2500  words  of  dynamic 
storage  is  available  to  the  user  (Ref  4,  pg  255),  thus  a 
realistic  limit  to  the  number  of  nodes  is  less  than  200. 

The  array  structure,  called  IJPOS  in  the  program, 
provides  the  grid  into  which  the  components  are  inserted. 
The  IJPOS  array  contains  the  pointer  to  the  node  that 
contains  the  data  for  the  component  at  any  (I,J)  grid 
location.  The  grid  is  sized  by  two  constants:  one  for  the 
number  of  columns  and  the  other  for  the  number  of  rows. 

The  program  makes  all  checks  for  the  grid  boundaries 
against  the  constants,  thus  the  user  may  configure  the  grid 
to  any  rectangular  shape.  The  minimum  suggested  is  a  10  by 
lO  grid  because  this  is  the  maximum  that  can  be  displayed 
on  the  screen  at  one  time.  The  maximum  should  be  limited 
by  the  number  of  nodes  needed  in  any  direction,  but  the 
upper  limit  of  about  200  active  nodes  must  be  kept  in  mind. 
The  20  by  20  grid  currently  employed  works  nicely  for  a 
variety  of  small  scale  systems  and  effectively  demonstrates 
the  capabilties  of  the  program. 

In  practice,  the  grid  system  is  really  not  limited  to 
a  maximum  of  200  nodes.  The  user  can  always  construct 
subsystems  and  calculate  their  reliabilities,  then  use  each 
of  those  subsystems  as  a  component  in  a  macro-system.  This 
type  of  application  is  limited  only  by  the  user's 
imagination  and  stamina. 
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PdSQCS®  Structure.  The  program  has  been  divided  into 
-four  sections,  each  operating  under  the  control  of  the 
executive  routine.  Of  the  four  sections,  three  are  segment 
procedures  and  the  fourth  is  an  intrinsic  unit.  A  segment 
procedure  is  an  independent,  self  contained  procedure  that 
only  refers  to  the  procedure  that  called  it.  An  intrinsic 
unit  is  a  group  of  user  written  procedures  that  any  program 
can  use,  and  is  located  in  the  System  Library  file.  The 
System  Library  file  contains  special  purpose  system 
provided  functions  and  procedures  such  as  trigonometric 
functions,  math  functions,  graphic  routines,  and  any  other 
special  purpose  type  routines  in  addition  to  any  user 
written  routines.  The  three  segment  procedures  and  the 
executive  routine  compromise  the  main  program  and  are 
compiled  into  a  single  code  file.  The  intrinsic  unit, 
named  Basics,  is  compiled  separately  and  then  inserted  into 
the  System  Library  file.  This  strategy  was  taken  for  two 
reasons:  first,  the  Apple  only  has  a  limited  amount  of 
space  to  build  the  text  file  that  will  be  later  compiled 
into  a  code  file;  second,  the  Apple  only  has  a  limited 
amount  of  memory  for  the  loading  and  execution  of  a  code 
file. 

The  first  reason  comes  from  the  fact  that  the  Apple 
Pascal  editor  has  room  for  only  18400  bytes  of  information 
(Ref  4,  pg  98).  This  limits  a  programmer  to  between  600 
and  800  lines  of  text  in  the  editor  at  any  time.  The 
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program  contains  about  1600  lines  of  text,  excluding 
comments,  thus  there  was  a  need  to  break  the  program  into 
pieces.  During  prelimenary  coding,  this  problem  was  solved 
using  a  technique  that  split  part  of  the  code  into  the 
intrinsic  unit.  This  division  split  the  program  into  two 
main  sections  and  reduced  the  compilation  time  of  the  main 
program,  because  an  intrinsic  unit  is  compiled  separately. 
The  limitation  on  text  file  size  can  also  be  overcome  by 
using  the  compiler  INCLUDE  option.  This  option  allows  the 
programmer  to  signal  the  compiler  to  go  to  another  text 
file  and  compile  that  code  and  then  return  to  the  current 
text  file  and  finish  compiling  the  rest  of  the  program. 

This  option  was  used  to  break  the  main  program’s  1 lOO  line 
text  file  into  three  pieces:  one  containing  the  executive 
routine  and  the  edit  segment,  one  containing  the  initialize 
segment,  and  one  containing  the  analyze  segment.  This 
technique  was  not  needed  for  the  Basics  unit,  since  that 
text  file  can  fit  into  the  editor. 

The  second  reason,  limited  memory  for  execution,  was 
aslo  solved  with  the  solution  to  the  limited  editor 
capability.  The  main  program’s  three  sections  were  made 
into  segment  procedures.  This  option  of  the  Pascal  system 
overlays  the  segment’s  code  into  memory  only  when  a  routine 
from  that  segment  is  active.  The  optimal  choice  for 
segmentation  dictates  that  the  segments  be  independent  and 
infrequently  exchanged.  The  choice  of  segments  abided  by 
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that  rule.  The  initialize  segment  is  only  used  to  set  up 
the  grid  and  the  display,  and  then  is  discarded.  The  edit 
segment  performs  both  the  system  generation  and  edit 
functions  and  is  the  largest  segment.  The  analyze  segment 
perforins  the  reliability  calculations  and  outputs  the 
system  to  a  printer.  The  edit  segment  and  the  analyze 
segment  are  only  exchanged  when  the  user  wants  to  calculate 
a  reliability.  The  time  spent  overlaying  either  procedure 
is  minimal  and  is  completed  as  the  next  prompt  is  displayed 
on  the  screen.  The  time  delay  is  short  because  a 
substantial  amount  of  the  routines  needed  by  the  edit 
segment  are  in  the  Basics  unit;  this  makes  the  size  of  the 
edit  segment  smaller,  thus  making  the  time  needed  to 
overlay  that  segment  into  memory  shorter. 

A  final  reason,  documentation,  while  not  critical  to 
the  program  operation,  is  an  important  consideration  for 
the  programmer  and  user  of  the  system.  The  top-down 
structuring  allows  for  the  above  type  modifications  without 
loss  of  continuity  in  the  program.  This  structure  also 
allows  for  searching  only  a  portion  of  the  code  for  an 
error.  Other  benefits  include  leaving  procedure  stubs  to 
be  completed  later  and  easy  reading  and  locating  of  any 
portion  of  code. 

Segments 

This  section  will  discuss  the  specific  procedures  and 
structure  of  the  Basics  unit,  the  initialization  segment. 
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the  edit  segment,  the  analyze  segment,  and  finally  the 
executive  routine. 

Basils  Unit.  The  Basics  unit  contains  four  important 
subparts:  the  global  variables,  general  use  procedures, 
display  procedures,  and  cursor  component  movement 
procedures.  The  global  variables  include  the  system 
constants,  the  two  structured  types,  and  the  system 
variables.  All  of  these  items  are  available  to  all 
procedures;  each  procedure  may  also  declare  variables  that 
are  only  active  within  that  procedure.  The  global 
variables  serve  as  the  communications  links  between  the 
major  segments  and  the  Basics  unit. 

The  second  part  of  the  Basics  unit  is  the  general 
purpose  routines.  These  routines  are  used  by  at  least  two 
different  major  segments,  thus  are  placed  in  this  common 
area  to  avoid  duplication.  The  routines  include  all  of  the 
procedures  used  to  interact  with  the  user  on  the  console 
and  the  procedure  needed  to  define  a  new  node.  None  of  the 
procedures  are  unique  and  many  could  be  used  in  any  program 
that  needs  to  interact  with  a  user  via  the  text  screen  or 
graphics  screen  of  the  Apple.  Several  of  the  routines  were 
borrowed  from  the  sample  programs  provided  with  the  Apple 
Pascal  System.  Those  routines  are  specifically  mentioned 
in  the  computer  code  and  the  Programmer's  Guide. 

The  third  part  of  the  Basics  unit  contains  the  display 

procedures  used  specifically  by  the  edit  segment.  These 
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procedures  are  designed  to  operate  under  any  of  the 
possible  configurations  of  the  system  constants.  Two  of 
the  functions  are  used  to  determine  the  X  and  Y  location  of 
a  specific  component  on  the  graphic  screen  window.  One 
routine  determines  the  10  by  10  subgrid  that  will  be 
displayed  at  any  one  time.  This  routine  is  invoked  if  the 
component  cursor  moves  out  of  the  currently  displayed 
subgrid.  The  two  most  important  routines  are  used  to 
display  an  individual  component  in  either  white  on  black  or 
black  on  white  and  the  entire  system.  The  system  display 
routine  uses  the  component  display  routine  to  place  each 
component  into  the  window.  The  routine  then  draws  the  line 
to  the  highest  parallel  component  in  t:ie  window  <this 
component  has  not  yet  been  drawn),  and  then  draws  the  line 
over  and  down  <if  necessary)  to  the  next  component.  This 
procedure  is  repeated  until  all  components  in  the  current 
window  are  displayed.  The  procedure  is  quite  fast,  a 
typical  screen  is  displayed  in  3  to  5  seconds.  The  delay 
provides  the  user  some  time  to  plan  his  next  addition. 

The  final  part  of  the  Basics  unit  contains  the  two 
procedures  used  to  move  the  cursor  up  and  down,  and  left 
and  right  on  the  screen.  These  procedures  ar~*  also  used 
exclusively  by  the  edit  segment. 

The  Basics  unit  is  a  special  case  because  it  is  a 
complete  program  except  for  an  executive  routine.  The  main 
program  serves  as  the  executive.  As  such,  the  unit  needs 
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to  be  recompiled  only  if  there  is  a  change  to  any  routines 
or  constants.  The  code  is  then  linked  into  the  system 
library  using  the  system  librarian  package.  The  main 
program  does  not  have  to  recompiled  if  there  is  a  change  to 
the  Basics  unit  and  likewise  the  Basics  unit  does  not  have 
to  be  recompiled  when  the  main  program  is  changed.  The 
main  program  can  be  nonexistant  when  the  Basics  unit  is 
compiled  because  the  two  parts  are  linked  only  when  the 
main  program  is  compiled  or  executed.  This  feature  allows 
the  programmer  to  deal  with  only  half  the  code  at  any  one 
time;  if  the  procedures  in  the  Basics  unit  are  fully 
operational  the  unit  will,  remain  static  while 
experimentation  and  change  occurs  in  the  main  program. 
Specifics  on  using  the  system  librarian  package  to  insert 
the  unit  into  the  system  library  can  be  found  in  Appendix 
3,  the  Programmer's  Guide. 

lUitLilLze  Segment .  The  initialize  segment  contains 
the  routines  needed  to  prepare  the  program  for  operation 
and  allow  several  default  parameters  to  be  changed.  This 
segment  is  also  executed  if  the  user  wants  to  clear  the 
system  grid  and  start  working  on  a  new  problem.  This 
segment  is  also  responsible  for  preparing  the  instructions 
on  the  text  screen  that  the  user  can  display  if  help  is 
needed  on  a  program  command.  This  segment  also  contains 
the  procedure  stub  that  will  eventually  interface  with  a 
mass  storage  device  to  provide  for  reading  an  old 
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reliability  system  back  into  memory.  The  segment  allows 
the  user  to  change  the  default  reliability  used  in  defining 
new  nodes  and  also  allows  the  user  to  turn  the  automatic 
labeling  option  on  or  off. 

Edi.t  Segment.  The  edit  segment  contains  the 
procedures  needed  to  generate  and  edit  the  reliability 
system.  The  generate  section  includes  the  procedures  to 
generate  a  parallel  and  series  structures  and  to  label  a 
component.  The  edit  section  includes  the  procedures  to 
remove  or  change  a  component  and  control  the  cursor ,  which 
is  the  current  component.  The  executive  part  of  this 
segment  selects  the  generation  sequence,  if  data  does  not 
exist  in  the  grid,  or  the  edit  sequence,  if  the  grid 
contains  data. 

The  generation  sequence  uses  recursive  calls  to  the 
parallel  and  series  procedures.  The  user  begins  the 
sequence  by  choosing  the  original  structure  of  the  system, 
either  parallel  or  series.  The  program  then  displays  that 
structure  and  locates  the  cursor  component  at  the  first 
component  in  the  structure.  The  user  is  then  asked  to 
either  label  the  component  or  change  the  component  into  the 
other  structure.  The  program  inserts  the  new  structure  or 
labels  the  component  and  continues  to  prompt  until  the 
structure  is  finished.  The  program  then  returns  to  the 
second  component  of  the  original  structure  and  repeats  the 
process  until  the  entire  system  is  completed.  The  program 
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then  enters  the  edit  sequence. 


Once  in  the  edit  sequence,  components  can  be  changed, 
removed  or  added.  The  quit  option  allows  the  user  to  exit 
to  the  main  program  executive  routine  which  then  allows  a 
transfer  to  any  of  the  three  segments.  The  user  can  toggle 
the  labeling  option  and  change  the  default  reliability. 

The  generation  sequence  can  be  entered  by  using  the  change 
option.  The  procedures  in  this  segment  are  relatively 
straight  forward  and  easy  to  follow  once  the  notion  of 
recursion  is  understood.  Simply  stated  recursion  is  the 
act  of  calling  a  procedure  from  within  itself  or  calling  a 
procedure  that  called  the  procedure  now  executing.  The 
Apple  Pascal  system  fully  supports  this  feature  of  the  UCSD 
Pascal  system,  and  allows  the  programmer  a  great  deal  of 
power  from  a  relatively  few  number  of  procedures  while 
providing  for  the  linking  of  all  the  recursive  steps 
automatically. 

Analyze  Segment.  The  final  segment  is  the  analyze 
segment,  which  controls  the  reliability  calculation  and 
provides  the  interface  to  the  output  devices.  This  segment 
also  uses  recursion  to  implement  the  mathematical  equations 
to  calculate  the  reliability  of  the  system.  This  sequence 
starts  at  the  first  component  and  calls  the  multiply 
procedure.  If  the  component  is  in  parallel  with  any 
structures,  the  procedure  to  analyze  a  parallel  structure 
is  invoked.  This  procedure  must  recursively  call  the 
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procedure  to  analyze  a  series  structure  because  a  parallel 
structure  is  made  up  of  series  components.  The  series 
procedure  recursively  calls  the  multiply  procedure  to 
calculate  the  series  reliabilities.  The  multiply  procedure 
combines  the  results  of  the  parallel  structure  with  the 
original  component  and  then  procedes  to  the  next  series 
structure.  Recursion  allows  three  relatively  simply 
procedures  to  be  able  to  reduce  any  system  no  matter  how 
complex.  This  ease  is  also  aided  by  the  structure  of  the 
data  and  the  grid  it  resides  in.  The  speed  at  which  the 
reliability  of  a  moderate  sized  system  (50  components)  can 
be  calculated  is  no  more  than  a  few  seconds. 

The  second  function  of  the  analyze  segment  is  the 
interaction  with  external  devices.  The  primary  device  is  a 
printer.  The  grid  will  be  printed  out  in  10  by  10  blocks 
in  a  standard  80  column  format.  This  routine  can  easi..  *  be 
modified  for  132  column  output.  The  procerture  tr>  store  a 
reliability  system  to  disk  is  not  provipted  but  a  procedure 
stub  exists  for  this  purpose. 

Executive  Routine.  The  executve  routine  is  very 
simple  as  it  must  provide  only  for  the  switching  between 
the  various  procedure  segments,  which  all  have  their  own 
executive  routines  which  function  in  the  same  manner.  This 
executive  sequence  is  basically  the  same  for  all  segments 
and  is  as  follows: 
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1.  Ths  display  is  updated 

2.  The  menu  is  presented. 


3.  A  command  is  selected. 

4.  The  command  is  executed. 

5.  Repeat  until  the  exit  command  is  selected. 

The  executive  routine  exists  in  the  main  program  text 
file  along  with  the  edit  segment.  When  this  file  is 
compiled,  the  correct  version  of  the  Basics  unit  must  exist 
in  the  system  library  or  the  compilation  will  fail.  It  is 
at  compilation  time  that  the  initialize  and  analyze  segment 
text  files  are  included  and  compiled  with  the  main  program 
text  file  into  the  single  main  program  code  file. 
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Ill  Results 


This  chapter  will  cover  the  validation  of  the 
cofliputerization  of  the  reliability  equations,  the 
conclusions  drawn  about  the  system’s  feasibility,  the  major 
problems  encountered,  and  several  extensions  to  enhance  the 
system. 

The  validation  of  the  computerized  reliability 
equations  is  an  important  part  of  the  study.  The  method  of 
validation  chosen  was  to  enumerate  the  possible 
combinations  and  configurations  of  components  on  a  small 
scale  and  insure  that  the  computed  reliability  equaled  the 
hand  calculated  reliability.  This  strategy  was  selected 
for  two  reasons:  first,  recursion  insures  that  the  same 
sequence  is  used  to  compute  the  reliability  of  a 
configuration  no  matter  where  it  is  in  the  system;  and 
second,  hand  calculation,  as  has  been  mentioned,  is  tedious 
and  error  prone  procedure.  A  constant  reliability  of  0.5 
made  the  hand  calculations  simpler,  but  effectively  tested 
the  sequence  of  computations  the  program  must  carry  out. 
Simple  series  and  parallel  structures  were  tested  first; 
after  verifing  the  computations,  more  complicated 
structures  were  tested.  Thus  the  hand  calculations  were 
kept  to  a  reasonable  limit.  The  configurations  used  are 
depicted  in  Figure  2. 
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Figure  3.  Prototype  Configuration  for  Validation. 

A  single  large  system  was  configured  and  a  reliability 
was  calculated.  The  computed  number  agreed  with  the  number 
calculated  very  carefully  by  hand.  This  prototype 
configuration  is  presented  in  Figure  3.  The  calculation 
changed  appropriately  when  the  component  reliabilities  were 
adjusted.  The  program  was  also  tested  usin«,  the  possible 
extreme  values  of  0.0  and  1.0  resulting  in  no  errors.  The 
strength  of  the  tests  performed  indicate  that  the  program 
does  perform  the  reliability  calculations  correctly. 
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Conclusions 

Several  conclusions  can  be  drawn  from  this  study. 
First,  and  foremost,  this  program  shows  that  a 
microcomputer  can  indeed  be  used  to  interactively  generate 
reliability  systems  and  then  calculate  the  reliability  of 
the  system.  The  use  of  the  graphics  capability  allows  the 
user  the  ability  to  visualize  and  then  build  and  change  the 
system  interactively  on  the  console.  The  actual 
implementation  is  not  important;  it  is  the  power  and 
flexibilty  that  an  interactive  system  provides  that  was  the 
underlying  issue  of  this  study. 

Second,  the  microcomputer  is  a  powerful  and  useful 
tool  —  useful  in  a  wide  range  of  applications.  The  study 
has  shown  that  a  microcomputer  can  handle  a  complex  problem 
with  relative  ease.  The  available  graphics  allow  a  very 
user  oriented  display  of  the  reliability  system. 

Third,  the  UCSD  Pascal  System  as  implemented  on  the 
Apple  II  System  is  a  very  powerful  and  useful  tool  for  a 
programmer  and  user  of  microcomputer  systems.  This  system 
offers  most  of  the  scientific  computing  power  of  Fortran 
less  exponentiation  with  the  block-structuring  of  Algol  and 
the  sel f -documenting  feature  of  Cobol .  The  operating 
system  allows  the  programmer  and  user  a  great  many  options 
and  flexibility.  The  power  of  the  segmenting  and 
overlaying  capabilities  are  shown  because  the  program, 
which  taken  as  a  single  piece  could  not  fit  into  the 


24 


available  memory,  can  execute  with  a  surplus  of  space. 

Finally,  the  most  important  conclusion  is  that 
microcomputer  systems  can  be  used  to  handle  complex 
problems  in  a  highly  desirable  fashion  —  interactively. 

The  power  of  this  avenue  of  approach  to  any  problem  can  not 
be  overemphasized.  A  well  written  program  can  be  used  as  a 
powerful  aide  to  a  manager  or  technician  that  does  not  have 
the  time  to  manually  tackle  a  problem. 

Problems 

Several  problems  were  encountered  during  the  course  of 
the  study.  A  class  of  problems  was  computer  implementation 
dependent  and  as  such,  the  discussion  can  be  found  in 
Appendix  3.  The  first  major  problem  to  be  encountered  was 
the  limited  size  of  the  system  editor.  This  problem  was 
solved  by  using  the  compiler  INCLUDE  option  and  then 
dividing  the  program  into  several  parts  with  no  harmful 
effects.  Editing  four  different  pieces  of  code  can  be 
cumbersome  but  the  Pascal  Operating  System  allows  for 
smooth  transitions  and  storage.  The  floppy  diskettes  can 
be  unreliable,  a  single  instance  of  data  retieval  error 
occur ed  in  several  months  of  operation.  The  operating 
system  allows  for  duplicating  diskettes  before  an 
unrecoverable  error  can  occur.  The  user  must  make  at  least 
one  backup  copy  to  prevent  the  catastrophic  loss  of  a 
complete  diskette,  as  disk  units  have  been  know  to  fail. 
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A  second  problem  concerned  the  graphics  capability  o-f 
the  Apple  System.  The  design  o-f  the  individual  component 
and  the  hardware  combined  to  limit  the  display  of  only  a  10 
by  10  grid  of  components.  This  is  only  a  quarter  of  the 
possible  grid.  The  solution  rested  on  software  to 
automatically  keep  only  the  portion  of  the  grid  that  the 
user  is  working  with  on  the  screen.  This  strategy  causes 
the  screen  to  shift  radically  if  the  grid  is  sparse  because 
the  cursor  component  shifts  large  distances  as  the  user 
moves  through  the  grid.  The  addition  of  a  position  prompt 
of  the  current  component,  that  is  on  the  screen  at  all 
times,  relieves  mast  of  the  confusion  that  can  result  from 
the  computer’s  attempt  to  display  the  grid. 

A  final  problem,  that  was  really  a  limitation  of  the 
system,  was  the  amount  of  time  needed  to  compile  the 
program.  The  compile  process  takes  about  five  minutes  for 
the  Basics  unit  and  about  eight  minutes  for  the  main 
program.  This  was  an  annoyance  when  working  but  was 
probably  a  small  price  to  pay.  This  was  the  only  drawback 
to  the  Pascal  operating  system;  the  processor  can  only 
compile  150  lines  per  minute  (Ref  3,  pg  68),  the  more  lines 
the  longer  it  takes.  This  inconvience  must  be  put  -into 
perspective:  batch  turn  around  for  a  large  scale  computer 
is  normally  several  minutes  but  can  take  days  depending  on 
the  work  load  and  the  environment.  Even  in  an  interactive 
environment,  the  user  may  spend  an  inordinate  amount  of 
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time  waiting  for  a  listing  at  a  production  control  window. 
The  longest  the  mi crocomputer  will  ever  take  is  a  few 
minutes.  This  inconvenience  happened  only  during 
development  as  the  program  was  constantly  being  recompiled, 
the  user  will  normally  execute  the  compiled  code  unless  a 
change  must  be  made. 

Extensi gns 

Two  major  extensions  will  be  discussed  in  this 
section,  several  other  minor  changes  are  mentioned  in 
Appendix  3.  The  first  extension  is  the  addition  of  the 
routines  to  store  and  retrieve  data  to  a  mass  storage 
device.  This  was  not  accomplished  because  the  original 
program  design  precluded  having  a  node  for  every  grid 
location  in  memory  at  the  same  time.  This  design  allowed 
flexibility  in  dealing  with  the  limited  amount  of  memory. 
The  program  currently  executes  with  a  surplus  of  memory, 
thus  the  extensions  should  be  attempted. 

The  strategy  could  be  one  of  combining  the  IJPOS  grid 
array  and  the  node  records  into  a  single  structure  -  a  two 
dimensional  array  of  record.  The  pointer  can  then  be 
changed  to  a  <I,J)  address  in  the  grid.  Once  the  new 
structure  has  data  in  it,  input  or  output  to  mass  storage 
is  very  easy:  read  or  write  the  individual  records.  The 
difficulty  lies  in  sizing  the  static  array  (about  12  words 
per  node)  to  fit  into  the  available  memory,  approximately 
6000  words  minus  the  amount  needed  for  the  largest  code 
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segment.  This  sizing  can  force  only  a  limited  size  system 
at  a  time,  but  the  storage  capability  coupled  with  the 
decomposition  of  the  reliability  system  may  counterbalance 
the  negative  effect.  This  option  requires  the  revision  of 
every  reference  using  n  pointer  to  using  an  ordered  pair 
address;  this  will  be  a  very  time  consuming  and  tedious 
effort,  but  the  results  may  very  well  be  worth  the  effort. 
This  method  implies  a  static  array  of  nodes  but  another 
method  is  available. 

In  this  second  option,  the  record  structure  could  add 
a  single  pointer  to  be  the  location  in  memory  of  the  node. 
The  pointer  would  only  be  used  to  allocate  or  deallocate 
the  memory  needed  for  the  node.  This  option  would  preserve 
the  efficient  use  of  the  dynamic  memory  available,  yet 
still  allow  for  a  simple  interface  to  the  mass  storage 
device. 

The  second  extension  would  allow  the  individual 
component  reliabilities  to  be  a  function  of  time.  This 
could  be  implemented  by  providing  the  program  with  several 
probability  distribution  functions,  such  as  the  Wiebel  or 
Exponential  that  could  be  used  to  model  the  reliability. 

The  identification  label  could  be  used  to  indicate  that  the 
relibility  is  a  function  of  time  and  the  reliability  could 
be  used  as  the  function’s  parameter.  An  alternate  solution 
would  use  the  ability  to  declare  variable  record  formats; 
thus  one  type  for  a  constant  reliability  and  another  type 
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for  the  different  functions  allowed,  since  some  are 
characterized  by  more  than  one  parameter.  The  analyze 
segment  could  be  modified  to  to  ask  for  the  duration  and 
interval  desired  for  the  resulting  system  reliability;  then 
the  analysis  routines  could  call  the  appropriate  function 
(one  could  be  a  constant)  for  the  reliability  using  the 
current  time  and  parameter  set  for  each  component  in  the 
normal  sequence.  The  reliability  calculations  could  be 
saved  for  each  interval  and  then  plotted  on  a  graph  of  the 
system  reliability  versus  time  using  each  interval 
calculation  as  a  data  point.  The  number  of  functions  will 
probably  not  be  limited  by  memory  size  because  the  analyze 
segment  is  smaller  than  the  edit  segment.  This  extension 
can  remove  a  restriction  that  forces  an  assumption  to  be 
made  that  limits  the  analysis  that  can  be  conducted  on  many 
real  world  problems  being  investigated  using  this  program. 
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SYSTEM_CONFIGyRAIIQN 


§ystem_Con£i gyration 

Study  Configuration 

1.  Apple  II  Plus  with  48K  memory 

2.  RAM  card  with  16k  memory  (required)  (slot  0) 

3.  Apple  Disk  II  (2)  with  controller  card  (slot  6) 

4.  Printer  with  controller  card  (slot  1) 

5.  Color  TV  with  RF  modulator 

Alternatives 

1.  Apple  II  with  48K  memory  (48k  minimum) 

2.  Any  number  of  disk  drives  (1  minimum; 

3.  Any  printer  with  controller  (not  required) 

4.  Any  80  column  or  lower  case  card  (slot  3) 

5.  Any  video  monitor 
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U SERI S_ GUIDE 


Appendix  2 


Overview 


This  User’s  guide  is  a  discussion  of  the  System 
Reliability  program.  This  guide  covers  the  general  system 
the  set  up  process,  the  initializing  process,  the  editing 
process,  and  the  analyzing  process.  A  quick  reference 
command  list,  segment  interaction  chart,  and  example 

session  are  also  provided.  This  guide  should  be  used  in 

♦ 

conjunction  with  the  Apple  Pascal  Operating  System  Manual 
and  the  System  Reliability  Programmer’s  Guide. 


i  i 


Appendix 


Table  of  Contents 


l 


Overview . ii 

User’s  Guide  .  1 

General  In-formation .  1 

Start  Up  . .  3 

Single  Drive  .....  .  3 

Dual  Drive  . . 3 

Initializing . 4 

Editing . S 

Generate  ......  .  .....  6 

Edit .  7 

Analyzing . 9 

Main  Menu . . . 10 

Quick  Reference  Command  List . 11 

Segment  Interaction  Chart  .  12 

Example  Session  .  13 


iii 


Appendix  2 


User ’ s_Gui de 


This  User's  Guide  will  take  the  -form  of  a  structured 
walk  through  the  workings  o-f  the  program.  The  guide  will 
be  operational  in  nature  and  focus  on  the  options  the  user 
may  employ  along  with  an  explanation  of  the  menu  choices. 
The  explanation  of  the  inner  workings  of  the  program  can  be 
found  in  Appendix  3,  the  Programmer's  Guide.  The  User’s 
guide  will  address  the  following  topics:  general 
information,  start  up,  initializing,  editing,  analyzing, 
and  the  main  menu.  This  guide  assumes  a  rudimentary 
knowledge  of  the  Apple  Pascal  Operating  System;  a 
familiarity  with  the  System  and  FILER  commands  is 
necessary.  The  guide  can  be  read  through  as  the  user 
practices  with  the  program  or  beforehand  as  a  program 
f ami 1 iarization  step.  The  quick  reference  command  chart 
provides  a  list  of  all  available  commands.  The  segment 
interaction  chart  provides  a  map  of  the  paths  available  to 
the  user.  The  example  session  is  a  tutorial  on  the  program 
functions  and  commands. 

General.  Information 

The  program  will  allow  the  user  to  place  up  to  lOO 
components  on  a  20  by  20  grid.  The  individual  component 
will  be  represented  by  a  2  character  identification  label 
above  a  2  digit  rounded  reliability  percentage.  This 
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component  will  be  connected  to  other  components  using 
straight  lines.  The  display  will  be  constructed  from  left 
to  right  and  bottom  to  top.  The  screen  will  either  contain 
text  information  or  a  display  of  a  10  by  iO  portion  of  the 
reliability  grid.  The  bottom  display  line  will  be  used  to 
communicate  information  to  and  elicit  responses  from  the 
user. 

The  program  will  ring  the  buzzer  if  an  error  has 
occured.  A  single  sound  indicates  that  the  input  character 
is  not  allowed  from  that  menu.  The  corrective  action  is  to 
reread  the  menu  or  use  the  <ESC>  key  to  display  the 
available  commands.  Two  buzzes  indicate  that  the  limits  of 
the  grid  have  been  exceeded.  This  means  that  a  particular 
column  or  row  has  grown  to  large  and  no  more  components  can 
fit,  or  an  attempt  has  been  made  to  put  more  than  six 
components  in  parallel.  In  either  case,  the  program  will 
automatically  insert  as  many  of  the  components  as  is 
possible,  the  excess  will  be  ignored.  If  no  room  exists 
then  the  program  will  offer  the  only  option  that  can  be 
successful  completed.  If  the  the  maximum  number  of 
components  is  exceeded  the  program  will  remind  the  user 
each  time  an  attempt  is  made  to  add  a  new  component,  but 
will  not  terminate  the  program.  The  limit  is  currently  set 
at  lOO  but  there  is  memory  available  for  at  least  200 
components.  This  value  can  be  changed;  see  the 
Programmer’s  Guide  for  specific  details. 


2 


Appendix  2 


start  yg 

This  program  requires  an  Apple  II  with  48K  of  memory 
and  a  language  or  expansion  RAM  (Random  Access  Memory)  card 
installed  in  slot  zero,  a  single  disk  drive  with  controller 
card  installed  in  slot  six,  and  an  appropriate  monitor  or 
television  and  modulator.  A  printer  with  interface  card 
installed  in  slot  one  and  a  second  disk  drive  attached  to 
the  controller  card  in  slot  six  may  also  be  used.  If  the 
Apple  has  the  shift  key  modification,  then  select  the 
normal  keyboard  (shift  m  generates  a  <  3  >  right  square 
bracket).  The  user  must  insure  that  the  correct  library 
exists  on  the  boot  diskette.  The  SYSTEM. LIBRARY  file  must 
contain  45  sectors,  if  it  does  not  or  you  suspect  the  file 
is  not  correct,  please  refer  to  the  Programmer's  Guide  for 
specific  instructions.  Depending  on  the  number  of  disk 
drives  available,  the  start  up  procedure  varies  slightly. 
Once  either  procedure  has  been  accomplished,  the  user  can 
then  EXECUTE  the  SYSREL.CODE  file,  and  the  initializing 
process  will  begin. 

Single  Drive.  The  single  drive  user  must  insure  that 
the  SYSREL.CODE  file  is  on  the  boot  diskette.  If  it  is 
not,  the  FILER  must  be  used  to  transfer  the  file  from  the 
WORK:  diskette  to  the  APPLE1:  diskette  (boot  diskette). 

Dual  Dri_ve.  The  dual  drive  user  must  only  insure  that 
the  APPLE1:  diskette  (boot  diskette)  is  in  drive  1  and  that 
the  WORK:  diskette  is  in  drive  2. 


3 


Appendix  2 


Initializing 

The  initializing  process  is  the  first  segment  of  the 
program  to  be  encountered,  and  as  such  it  informs  the  user 
about  some  general  program  limitations  and  functions,  and 
enables  the  user  to  change  program  default  values.  An 
important  piece'  of  information  is  that  the  current 
component  the  program  is  working  on  is  displayed  as  white 
letters  on  a  black  background;  any  other  components  are 
displayed  as  black  letters  on  a  white  background.  The 
current  component  will  also  be  refered  to  as  the  cursor 
component. 

Two  important  key  stroke  commands  are  also  mentioned: 
the  <ESC>  (escape)  key  will  display  a  quick  reference 
command  list,  and  the  <  <-  >  (left  arrow  or  backspace)  key 
will  let  the  user  change  a  selected  command.  The  left 
arrow  key  allows  the  user  to  reenter  a  mistaken  command 
choice  for  multiple  keystroke  entries  (examples  are  P#, 

SI) ;  the  function  will  not  work  if  the  command  is  only  a 
single  key  stroke  (examples  are  E,  C) ,  other  means  are 
available  to  stop  the  commanded  action. 

After  reading  the  information  the  user  can  then  select 
the  <RETURN>  key  to  change  the  default  values  or  any  other 
key  to  continue  the  initializing  process.  Changing  the 
defaults  simply  involves  answering  the  questions.  The 
autolabelling  option  is  normally  turned  on  and  the  default 
component  reliability  is  0.5.  The  user  is  now  asked  if 
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data  resides  on  disk;  this  -function  is  not  yet  implemented 
so  either  answer  will  cause  the  program  to  finish  the 
initializing  process. 

If  the  user  reenters  the  initializing  process  from  the 
main  menu,  pressing  the  <ESC>  key  returns  the  user  to  the 
main  menu  without  clearing  the  current  reliability  grid. 

Any  other  choice  will  erase  whatever  system  had  been 
constructed  by  causing  the  program  to  reinitialize.  The 
rest  of  the  process  will  be  repeated  as  before,  then  the 
user  automatically  enters  the  generate  sequence  of  the 
editing  process. 

Edi.ti.ng 

The  editing  process  consists  of  two  sequences! 
generate  and  edit.  The  generate  sequence  is  entered 
automatically  when  the  initializing  process  is  complete. 

At  the  completion  of  a  generate  sequence,  the  edit  sequence 
is  initiated.  This  entire  process  may  also  be  initiated 
from  the  main  menu.  A  generate  sequence  may  be  started 
from  the  edit  sequence.  The  #  symbol  is  used  to  indicate  a 
single  digit  input  is  required  to  complete  the  command. 

The  numbers  in  the  lower  left  corner  of  the  display 
indicate  the  row  and  column  of  the  current  component.  This 
information  is  displayed  at  all  times  and  is  designed  as  an 
aide  in  keeping  tract  of  the  user’s  location  in  the  grid. 
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Generate.  The  generate  sequence  allows  the  user  to 
create  a  reliability  system.  The  generate  menu. allows  the 
user  to  insert  a  Plarallel  structure  with  #  components,  a 
Sleries  structure  with  #  components,  L)abel  a  component 
with  an  identification  label  and  reliability,  or  move  to 
the  N)ext  component  in  the  structure.  The  current 
component  limit  for  a  parallel  structure  is  six,  while. the 
current  limit  for  a  series  structure  is  eight.  These 
limits  may  be  changed;  see  the  Programmer’s  Guide  for 
specific  procedures.  This  process  of  inserting  and  adding 
components  continues  until  the  user  has  visited  each 
component  at  least  once.  If  the  component  does  not  have  to 
be  changed  into  a  parallel  or  series  structure,  or  the  user 
is  satisfied  with  the  label,  the  N)ext  command  may  be  used 
to  advance  the  cursor  component.  The  program  automatical ly 
advances  to  the  next  component  after  any  other  command. 

It  is  important  to  note  that  the  user’s  initial 
command  choice,  parallel  or  series,  will  determine  the 
structure  of  the  final  system.  This  choice  has  a 
significant  impact  on  the  reliability  of  the  system.  If 
the  user  chooses  the  parallel  command  then  the  system  will 
consist  of  #  structures  in  parallel  with  each  other.  If 
the  user  chooses  the  series  command  then  the  system  will 
consist  of  #  structures  in  series  with  each  other.  This 
basic  arrangement  is  unalterable;  the  system  would  have  to 
be  reinitialized  to  change  the  arrangement.  In  either 
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case,  the  structures  may  be  very  complex,  but  will  still 
have  the  basic  pattern.  Based  on  this  information,  the 
suggestion  is  offered  that  the  user  choose  a  series 
structure  as  the  first  command  until  the  capabilities  of 
the  program  are  understood.  Any  excess  components  can  be 
later  removed  from  the  system  by  the  edit  sequence.  A 
series  component  can  also  be  effectively  eliminated  from 
the  structure  by  setting  the  reliability  to  1.0,  while  a 
parallel  component  can  be  effectively  eliminated  from  the 
structure  by  setting  the  reliability  to  0.0.  At  the 
completion  of  the  generate  sequence,  the  edit  sequence  is 
automatically  initiated. 

Edit.  The  edit  sequence  is  entered  automatically  from 
a  generate  sequence  or  can  be  entered  from  the  main  menu. 
This  sequence  enables  the  user  to  change  the  system  that 
has  been  placed  on  the  grid.  The  edit  menu  allows  the  user 
to  R)emove  a  component,  Ohange  a  component  or  the 
defaults,  move  the  cursor,  or  Q)uit  and  return  to  the  main 
menu  to  procede  to  the  analyze  segment. 

The  FOemove  command  will  attempt  to  remove  a  component 
from  the  grid;  the  routine  is  not  very  sophisticated  and 
therefore  can  not  handle  all  possible  cases.  The  details 
of  the  command  restrictions  are  discussed  in  the 
Programmer’s  Guide  in  the  Internal  Section:  Main  Program, 
REMOVE  procedure. 
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The  Ohange  command  displays  the  change  menu  which 
allows  the  user  to  start  a  generate  sequence  by  using  the 
Plarallel  or  Sleries  command,  L)abel  a  component,  or  change 
the  defaults  by  using  the  Tloggle  command  to  turn  the 
autolabelling  option  on  or  off,  and  the  Dlefault  command  to 
change  the  component  reliability  default.  The  Q)uit 
command  returns  the  user  to  the  edit  menu  after  the  use  of  > 
the  Tloggle  or  Dlefault  commands,  or  if  the  Ohange  command 
was  inadvertantly  selected.  The  program  automatically 
returns  to  the  edit  menu  after  the  completion  of  the 
Plarallel,  Sleries  or  L)abel  commands. 

The  cursor  movement  commands  allow  the  user  to  move 
from  component  to  component  to  make  editing  changes.  The 
command  keys  were  selected  because  they  closely  resemble  a 
diamond  shape  on  the  keyboard.  The  positions  in  the 
diamond  represent  the  direction  the  cursor  will  move:  I  and 
li  force  the  cursor  up  and  down  respectively,  while  J  and  K 
force  the  cursor  left  and  right  respectively.  The 
direction  is  followed  by  the  number  of  grid  locations  to 
shift.  The  program  will  allow  movement  out  of  the 
currently  displayed  subgrid  and  then  present  a  new  section 
of  the  grid  with  the  target  component  centered.  The 
maximum  input  allowed  is  a  9.  If  no  component  exists  at 
the  target  location,  the  program  checks  either  side  for  a 
component;  if  a  target  still  does  not  exist,  th;>  program 
reduces  the  shift  amount  and  tries  again  until  a  target 
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component  is  found.  The  H)ome  command  will  position  the 
cursor  at  the  lower  left  corner  of  the  grid  with  the 
corresponding  quadrant  of  the  grid  di  played. 

The  Q)uit  command  will  return  the  user  to  the  main 
menu.  This  command  can  be  used  with  the  cursor  in  any 
position.  The  <ESC>  key  will  display  a  quick  reference 
list  of  all  of  the  available  commands.  The  left  arrow  <  <- 
>  key  functions  to  change  a  command  that  requires  more  than 
a  single  character  entry.  After  exiting  the  editing 
process,  the  user  can  then  select  the  main  menu  A)nalyze 
command  in  order  to  calculate  the  system  reliability. 

Analyzing.  All  of  the  analyzing  process  options  are 
initiated  from  the  main  menu.  The  A)nalyze  command  will 
cause  the  program  to  calculate  the  reliability  of  the 
system  currently  on  the  grid.  A  short  pause  can  be 
expected  while  the  calculations  are  progressing.  The 
answer  will  be  displayed  and  the  <RETURN>  key  will  call  the 
print  routine  while  any  other  key  will  return  the  user  to 
the  main  menu.  The  P)rint  command  will  begin  the  process 
of  printing  a  formatted  representation  of  the  grid  on  a 
piece  of  paper.  The  routine  places  each  component  in  its 
grid  location  with  the  row  and  column  of  the  component,  the 
row  and  column  of  the  forward  linked  component,  and  the  row 
and  column  of  the  backward  linked  component;  the  row  of  the 
parallel  linked  components;  and  the  component  reliability. 
The  user  must  insure  the  printer  is  on  and  ready  to  accept 
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data.  The  analyze  routine  may  be  called  -from  the  print 
routine.  The  S)tore  command  will  initiate  the  process  of 
saving  the  grid  on  a  diskette  -file  but  is  not  currently 
implemented. 

Main  Menu.  The  main,  menu  commands  allow  the  user  to 
select  which  process  will  be  initiated  next.  The  commands 
are  for  the  E)dit  process,  the  A)nalyze  process,  or  the 
Dnitialize  process.  The  P)rint  and  S)tore  commmands  are 
part  of  the  analyzing  process  but  are  selected  from  the 
main  menu.  As  suggested  by  the  command  names,  each 
selection  places  the  user  under  the  control  of  the 
specified  process.  The  Q)uit  command  will  cause  the 
program  to  terminate  and  place  the  user  in  the  Pascal 
Operating  System  command  line. 

The  program  is  designed  to  allow  the  user  to  alternate 
between  the  E)dit  process  and  the  A)nalyze  process  at  will. 
This  facility  allows  the  user  to  rapidly  reconfigure  a 
reliability  system,  calculate  its  reliability  and  then 
iterate  the  process  as  many  times  as  is  required. 
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Quick  Reference  Command  List 


Main  Menu  Commands 


E)dit  Process 

Editing  Commands 

Generate  Sequence 

P)arallel  Structure 
SJeries  Structure 
L)abel  Component 
N)ext  Component 

Edit  Sequence 

R)emove  Component. 

Ohange  Component 

P) arallel  Structure 
5)eries  Structure 
L)abel  Component 

T)oggle  autolabelling  on  or  off 
Dlefault  Reliability 

Q) uit  Change 

I  or  M  -  cursor  up  or  down 
J  or  K  -  cursor  left  or  right 
H)ome 

QJuit  Edit  Process 
Alnalyze  grid  reliability 

Ability  to  print  grid 

P) rint  grid  to  paper 

Ability  to  analyze  grid 
Sltore  grid  to  disk 
Unitialize  Process 

Q) uit  program 
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Segment  Interaction  Chart 
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ExamQle  Session 


This  example  session  contains  a  very  simple  system  to 
present  some  of  the  commands  of  the  program  in  a  structured 
environment.  The  user  must  experiment  with  the  prpgram  to 
make  it  do  the  things  that  are  of  special  interest.  The 
example  will  recreate  the  system  depicted  in  Figure  1. 


.3298 


Figure  1.  Example  System 


The  example  will  be  discussed  exactly  as  the  program  will 
execute,  thus  the  user  should  be  doing  the  commands  on  the 
computer  as  this  example  is  being  read. 

1.  The  first  step  is  to  insert  the  APPLE1:  diskette 
into  drive  1  and  the  WORK:  diskette  into  drive  2.  The 
Apple  should  then  be  turned  on  and  the  drives  will  operate, 
finally  displaying  the  UCSD  Operating  System  command  line. 
In  response  to  this  the  user  should  now  EXECUTE  the 
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WORKsSYSREL  file  and  the  system  reliability  program  Mill 
begin  to  execute. 

2.  The  user  will  first  see  the  specific  program 
information.  Take  time  to  read  all  of  the  comments  as  they 
are  important  to  the  correct  operation  of  the  program. 

After  reading  the  comments,  hit  any  key  to  continue  with 
the  program.  The  program  now  asks  if  the  user  has  data 
stored  on  disk.  Respond  no  to  this  question  as  the  routine 
has  not  yet  been  implemented.  The  drive  will  again  operate 
as  the  program  starts  the  initializing  process  and  display 
an  appropriate  message.  At  the  completion  of  the 
initialization  the  program  will  display  the  generate 
sequence  menu. 

3.  The  user  can  now  start  to  build  the  system 
depicted  in  Figure  1.  The  first  step  is  to  notice  that  the 
system  is  basically  three  structures  in  series.  The  first 
response  is  S3.  The  program  now  displays  a  three  component 
series  structure  with  the  first  component  as  the  current 
component  (white  on  black).  Now,  the  first  structure  of 
the  series  is  basically  three  structures  in  parallel,  thus 
the  second  response  is  P3.  The  lowest  component  of  the 
parallel  structure  is  two  components  in  series,  so  the  next 
command  is  S2.  The  lowest  structure  is  now  complete  so  two 
N  commands  are  used  to  move  the  cursor  to  the  second 
element  of  the  parallel  structure.  This  structure  is 
basically  two  structures  in  series  so  the  next  command  is 
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S2.  Now  use  a  P2  command  and  two  N  commands,  twice,  to 
change  the  two  series  components  into  parallel  structures 
and  move  the  cursor  to  the  top  parallel  structure.  The 
last  stucture  of  the  parallel  structure  is  a  series 
structure  so  use  a  52  command  to  finish  the  last  structure 
and  two  N  commands  to  move  to  the  second  component  of  the 
original  series  structure.  Use  another  N  command  to  move 
on  to  the  last  component  in  the  series  as  the  second  is  not 
to  be  changed.  The  last  component  is  a  simple  parallel 
structure,  so  use  a  P3  command  to  finish  the  system.  The 
generate  sequence  must  now  be  exited  so  use  three  N 
commands  to  start  the  edit  sequence. 

4.  The  edit  menu  is  now  displayed,  but  the  system  is 
complete  so  use  the  QUIT  command  to  exit  to  the  main  menu. 
Once  in  the  main  menu  the  ANALYZE  command  can  now  be  used 
to  calculate  the  system  reliability.  This  process  takes  a 
few  seconds  and  the  program  displays  an  appropriate 
message.  The  calculations  are  completed  and  displayed  to 
the  screen,  reliability  is  .3298.  Not  being  finished,  use 
the  space  bar  to  return  to  the  main  menu.  Once  in  the  main 
main,  the  user  can  now  return  to  the  EDIT  sequence  to 
change  the  system. 

5.  Once  back  in  the  edit  sequence,  the  user  can  now 
use  a  K2  command  to  move  to  the  lone  series  component  to 
change  its  reliability.  Use  the  CHANGE  command  to  enter 
that  menu  and  then  select  the  LABEL  command  and  change  the 
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component’s  reliability  to  .9,  which  the  display 
automatically  updates.  Now  use  a  K1  and  13  commands  to 
move  to  the  third  component  in  the  simple  parallel 
structure.  Use  the  REMOVE  command  to  delete  this  component 
from  the  system.  Again  the  display  is  automatically 
updated.  Use  the  QUIT  command  to  return  to  the  main  menu 
to  analyze  the  new  conf iguration. 

6.  Use  the  ANALYZE  command  to  again  calculate  the 
reliability,  which  is  now  computed  at  .5089.  This  number 
should  make  intuitive  sense  as  the  .5  reliability  was 
changed  to  a  .9  reliability  but  a  triple  parallel  structure 
was  reduced  to  a  double  parallel  structure  somewhat 
negating  the  effect  of  the  reliability  change.  Again  use 
the  space  bar  to  return  back  to  the  main  menu  and  then 
enter  the  edit  sequence. 

7.  Use  a  K2  command  to  move  over  to  the  single  series 
component.  Use  the  CHANGE  command  and  the  select  the 
DEFAULT  command  and  change  the  default  reliability  to  .9. 
Now,  use  a  P4  command  to  change  the  single  component  into  a 
simple  quadruple  parallel  structure.  Four  N  commands  must 
be  used  to  return  to  the  edit  menu.  Now  select  the  QUIT 
command  to  again  return  to  the  main  menu  to  analyze  the 
reliability.  The  reliability  is  now  ..5654  and  this  is  a 
final  form  of  the  system.  So,  insure  the  printer  is  turned 
on  and  use  the  <RETURN>  key  to  print  a  copy  of  the  system 
to  paper.  If  no  printer  is  connected  to  your  system  just 
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return  to  the  main  menu.  Once  the  printer  is  finished  use 
the  QUIT  command  to  exit  the  program.  The  final  version  of 
the  system  is  depicted  in  Figure  2. 

Note.  This  is  a  very  small  example,  the  user  must 
feel  free  to  experiment  and  use  all  of  the  commands  to 
become  familiar  with  them.  The  program  offers  numerous 
ways  to  cancel  a  command  if  a  wrong  choice  was  selected. 

No  example  can  depict  all  of  the  facets  of  a  system,  only 
usage  can  teach  the  full  range  of  capabilities. 
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Figure  2.  Final  System 
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PRSGRAMMERlS.ey I DE 


Overview 


This  Programmer’s  Guide  will  provide  general 
information  on  the  program  and  diskettes.  Specific  detail 
of  the  external  operation  of  the  program  will  include  the 
editing,  compiling  and  linking  of  the  program  segments. 
Specific  detail  of  the  internal  workings  of  the  program 
will  include  the  Basics  unit  and  all  program  segments. 

This  guide  should  be  used  with  a  Pascal  reference  and  the 
Apple  Pascal  Language  Reference  Manual. 

This  guide  contains  Appendix  A,  the  program  listing. 
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The  Programmer’s  Guide  is  -for  use  if  the  program  must 
be  changed  or  recompiled,  or  if  the  user  desires  an  indepth 
knowledge  of  the  internal  program  structure.  This  guide 
will  begin  with  some  general  information  and  comments  about 
the  program.  The  rest  of  the  guide  is  divided  into  three 
sections:  external,  internal,  and  program  listing.  The 
external  section  will  discuss  the  external  operation  of  the 
program.  The  topics  will  include  editing  and  compiling  of 
the  main  program;  and  editing,  compiling,  and  linking  of 
the  Basics  unit.  The  internal  section  will  discuss 
internal  workings  of  the  program.  The  topics  will  include 
the  Basics  unit  and  each  segment  of  the  main  program, 
executive,  initialize,  edit,  and  analyze.  The  program 
listing  section  will  include  a  procedure  hierarchy  chart 
along  with  an  annotated  listing  of  the  program. 

Program  Detail.  This  program  has  been  divided  into 
two  major  portions:  the  main  program  and  the  Basics  unit. 
This  division  occured  because  the  Pascal  editor  can  only 
handle  about  a  maximum  of  800  lines  of  code.  The  Basics 
unit  is  compiled  separately  and  is  then  linked  into  the 
system  library  file.  A  change  to  the  unit  does  not  require 
a  recompilation  of  the  main  program.  The  unit  contains  all 
of  the  global  constants  and  variables,  data  structures, 
general  purpose  routines,  and  display  routines.  Once  the 
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program  starts  executing,  the  code  contained  in  the  unit  is 
always  resident  in  memory. 

The  main  program  has  also  been  divided  into  three 
segments.  This  division  occured  -for  two  reasons:  editor 
limitations  and  memory  limitations.  The  solution  provided 
an  answer  to  both  limitations.  The  three  program  segments 
do  not  have  to  be  in  memory  at  the  same  time  because  they 
perform  independent  functions.  Each  time  their  function  is 
required,  that  segment  of  code  is  overlayed  into  memory  and 
executed.  The  overlaying  process  takes  no  more  than  a  few 
seconds  and  is  accomplished  at  normal  program  break  points. 
The  source  file  for  each  segment  also  resides  in  a 
different  text  file;  the  files  are  compiled  together  into  a 
single  code  file  when  the  executive  routine  is  compiled  by 
using  the  compiler  INCLUDE  option.  This  allows  a  portion 
of  a  text  file  to  exist  as  a  separate  text  file,  then  at 
compilation  time  a  single  line  in  the  main  text  file 
instructs  the  compiler  to  include  the  named  file  in  this 
compilation.  A  change  to  the  main  program  does  not  require 
the  recompilation  of  the  unit,  but  does  require  a  current 
version  of  the  unit  to  exist  in  tne  system  library  before  a 
recompilation  could  be  attempted.  A  change  to  any  one  of 
the  segments  would  require  recompiling  the  entire  main 
program.  The  INCLUDE  line  must  completely  specify  the  file 
volume  and  name. 
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The  program  has  borrowed  from  the  example  programs 
provided  in  the  Apple  Pascal  Language  Reference  Manual. 

The  specific  routines  are  mentioned  when  discussed  and  in 
the  program  listing. 

Notation.  There  has  also  been  a  change  in  the 
standard  notation  convention  in  the  program.  The 
reliability  grid  displayed  by  the  program  is  dimensioned  by 
an  ordered  pair  <I,J>.  Any  reference  to  I  or  the  first 
dimension  of  the  array  IJPOS  is  to  the  column  in  the  grid, 
while  any  reference  to  J  or  the  second  dimension  of  IJPOS 
is  to  the  row  in  the  grid.  This  convention  is  not  normal 
(1  normally  indicates  a  row)  but  was  noticed  too  late  to 
change.  The  tedious  precedure  of  reindexing  was  not 
considered  worth  the  effort  but  may  be  accomplished  by  any 
enterprising  programmer.  The  change  could  be  made  with  a 
minimum  of  effort  when  the  extension  for  the  alternate  data 
structure  is  attempted. 

Diskette  Detai.1..  All  the  files  discussed  in  this 
guide  reside  on  the  WORK:  diskette.  This  diskette  should 
be  used  as  the  source  for  all  code;  when  changes  are  made, 
the  files  should  be  updated  to  reflect  the  changes.  The 
WORKB:  diskette  is  the  WORK:  diskette  backup,  it  contains  a 
copy  of  all  of  the  files  on  the  WORK:  diskette.  Once  an 
updated  version  of  the  program  is  executing  correctly  and 
all  the  updated  files  are  on  the  WORK:  diskette,  the  WORKB: 
diskette  should  then  be  updated.  In  this  fashion,  only  the 
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most  recent  change  can  be  lost  if  the  boot  dikette  is  lost 
as  the  WORK:  diskette  is  constantly  being  updated.  If  the 
WORK:  diskette  is  damaged  or  lost,  or  the  programmer  has 
made  an  untraceable  error,  the  WORKB:  diskette  can  serve  as 
backup,  thus  losing  only  the  most  recent  test  version  of 
the  program.  To  preclude  the  ultimate  disaster,  the  WORKB: 
diskette  should  be  stared  separately. 

Requi red  Familiarity.  This  guide  is  written  for  a 
user  who  is  familiar  with  the  Apple  implementation  of  the 
UCSD  Pascal  Operating  System.  The  Apple  Pascal  Operating 
Reference  Manual  and  the  Apple  Pascal  Language  Reference 
Manuals  are  necessary  for  complete  understanding  of  the 
concepts  and  procedures  used  and  discussed  in  this  guide. 
The  beginning  user  may  also  find  Pascal.  Programming  for  the 
Ap_Bie  hy  Lewis  (Ref  10)  to  be  very  useful.  The  advanced 
user  and  the  Pascal  programmer  will  find  PASCAL  User  Manual 
jnfl  Report  by  Jensen  and  Wirth  (Ref  7)  to  be  a  complete 
reference. 
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External  Section 


The  external  section  will  detail  the  process  the  user 
must  go  through  to  change  and  recompile  the  main  program, 
and  the  slightly  different  process  used  to  change, 
recompile,  and  relink  the  Basics  unit.  This  discussion 
will  assume  that  the  user  has  a  dual  drive  system. 

Main  Program 

The  division  of  the  main  program  into  three  text  files 
makes  editing  and  compiling  unusual.  The  peculiarities  of 
each  will  be  discussed  separately. 

Editing.  The  editing  process  is  the  normal  for  each 
individual  text  file.  Each  text  file  has  its  own  name, 
INITSEG  and  ANALSEG;  the  edit  segment  is  contained  in  the 
main  program  file  SYSREL.  Each  file  can  be  edited  and 
saved  to  any  disk  file  in  the  normal  fashion.  The  major 
differences  occur  during  compiling. 

Camelling.  The  compiling  process  is  different  because 
of  the  INCLUDE  option.  To  use  the  include  option,  the  user 
must  completely  specify  the  file  name  to  be  included.  A 
copy  of  the  INITSEG  and  ANALSEG  files  should  be  transferred 
to  the  APPLE2:  diskette  with  the  compiler  because  the 
INCLUDE  option  specifies  the  volume  for  these  files  as 
APPLE2: .  This  makes  recompilation  very  easy.  The  APPLE2* 
diskette  with  the  compiler  and  the  include  files 
INITSEG. TEXT  and  ANALSEG. TEXT  should  be  placed  in  drive  2. 
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The  APPLE1:  diskette  should  be  in  drive  1  with  the 
SYSREL. TEXT  file  as  that  file  name  or  the  SYSTEM. WRK. TEXT 
file  along  with  the  SYSTEM. LIBRARY  file  that  contains  the 
Basics  unit.  The  work  file  or  text  file  is  then  compiled 
normally.  The  compiler  will  go  to  the  APPLE2:  diskette  and 
include  the  two  separate  segment  text  files  when  instructed 
to  by  the  INCLUDE  option  in  the  main  program  text  file. 

The  names  or  the  locations  of  the  separate  segment  text 
files  are  not  critical,  but  the  specification  of  the  file 
names  on  the  include  card  must  be  exactly  right: 

VOLUME: NAME. TEXT  or  the  compilation  will  not  work.  The 
INCLUDE  option  is  discussed  in  Chapter  4  on  pages  63  and  64 
in  the  Apple  Pascal  Language  Reference  Manual.  The  current 
version  of  the  Basics  unit  must  be  linked  into  the  system 
library  or  the  compilation  will  not  work.  The  RUN  option 
may  be  used  to  compile  and  run  the  main  program. 

Basics  Unit. 

The  process  for  the  Basics  unit  is  completely  normal 
except  for  using  the  librarian  utility  provided  on  the 
APPLE3:  diskette. 

Editing.  The  editing  process  is  normal  as  the  entire 
text  file  will  fit  into  the  editor.  The  segment  numbers 
chosen  for  this  unit  do  not  conflict  with  any  other  unit; 
care  must  be  exercised  if  the  segment  numbers  are  changed 
to  insure  that  there  is  no  conflict  with  system  provided 
segments.  The  Apple  Pascal  Language  Reference  Manual 
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discusses  this  point  in  detail  in  Chapter  S  on  pages  76  and 
77. 

Compi ling.  The  compilation  process  is  also  normal, 
except  that  the  RUN  command  should  not  be  used  because  the 
code  file  can  not  be  executed  until  called  by  the  main 
program.  The  compilation  of  a  unit  requires  that  the 
compilier  SWAPPING  option  be  turned  on.  This  allows  enough 
room  in  the  computer  for  declarations  but  also  slows  the 
compilation  process  down.  This  point  is  discussed  in 
Chapter  4  on  page  68  in  the  Apple  Pascal  Language  Reference 
Manual . 

Linking.  The  linking  process  is  simple  to  execute  but 
possibly  hard  to  understand.  This  guide  will  only  present 
the  procedure,  an  adequate  explanation  exists  in  the  Apple 
Reference  Manuals  and  Addendum.  The  procedure  is  easiest 
with  the  updated  BASICS. CODE  file  on  the  WORK:  diskette. 
This  Diskette  also  contains  the  files  OLD. LIBRARY  and 
NEW. LIBRARY.  These  three  files  are  accessed  by  the 
librarian  utility  to  link  the  unit  into  a  new  library  file. 
The  user  must  now  EXECUTE  APPLE3: LIBRARY. CODE.  The  program 
will  ask  for  output  code  file,  reinsert  the  WORK:  diskette 
and  respond  WORK: NEW. LIBRARY.  The  program  will  then  ask 
for  a  link  code  file,  respond  with  WORK: OLD. LIBRARY. 

Follow  prompts  and  use  the  =  command  to  link  all  source 
slots  of  the  old  library  into  the  same  destination  slots  of 
the  new  library.  Now  select  a  new  link  code  file  using  the 
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N  command  and  respond  WORK 2 BASILS. CODE.  Link  slot  1  into 
slot  7  and  slot  2  into  slot  8.  Now  quit  the  librarian 
program  using  the  Q  command  and  the  <RET(JRN>  command.  The 
NEW. LIBRARY  -file  now  contains  an  updated  and  linked  version 
of  the  Basics  unit.  The  SYSTEM. LIBRARY  file  on  the  APPLElt 
diskette  must  now  be  replaced  by  the  WORK: NEW. LIBRARY  file. 
Once  this  has  been  accomplished  the  main  program  can  be 
compiled  or  executed.  The  details  of  the  librarian  utility 
operation  can  be  found  in  the  Apple  Pascal  Operating  System 
Manual  in  Chapter  8  on  page  187. 
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Internal  Sections  Basics  Unit 


This  section  will  discuss  the  internal  contents  of  the 
Basics  unit.  The  topics  will  include  unit  structure, 
constants,  types,  variables,  and  data  structures  along  with 
a  discussion  of  each  routine. 

Structure.  The  structure  of  an  intrinsic  unit  is  very 
regimented.  A  unit  has  four  parts:  a  heading,  an  interface 
part,  an  implementation  part,  and  an  initialization  block. 
The  heading  of  the  Basics  unit  turns  the  compiler  SWAPPING 
option  on  (required  for  all  units),  names  the  unit, 
declares  the  unit  as  an  intrinsic  unit,  and  specifies  the 
segment  numbers  associated  with  the  unit.  The  interface 
part  declares  the  units  this  unit  uses,  th^|  global 
constants,  the  global  types,  and  the  global  variables  the 
main  program  will  use  to  communicate  with  all  other 
segments  and  the  unit.  The  interface  part  also  declares 
all  of  the  routines  that  are  contained  in  the  unit.  The 
implementation  part  declares  any  local  structures  to  the 
unit;  the  Basics  unit  has  none.  The  implementation  part 
also  contains  the  body  of  each  of  the  procedures  or 
functions  contained  in  the  unit.  The  last  part  of  a  unit 
is  an  initialization  block;  this  block  is  empty  for  the 
Basics  unit.  A  detailed  discussion  of  units  is  provided  in 
Chapter  5  on  pages  75  through  81  in  the  Apple  Pascal 
Language  Reference  Manual . 
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Constants.  The  Basics  unit  declares  seven  constants 
that  serve  to  size  the  entire  program.  The  MAXX  and  MAXY 
constants  are  -for  this  maximum  X  and  Y  positions  allowed  on 
the  graphics  screen.  These  values  should  not  be  changed  as 
they  are  presently  set  to  allow  the  maximum  usable  area  on 
the  graphics  screen. 

The  NREC,  NSER,  and  NPAR  constants  control  the  number 
of  nodes  allowed  in  the  grid,  the  maximum  number  of 
components  in  a  series  structure,  and  the  maximum  number  of 
components  in  a  parallel  structure.  These  constants  may  be 
adjusted  by  the  user  to  suit  the  need.  NREC  is  limited  by 
the  amount  of  memory  available  or  the  product  of  MAXI  *.  d 
MAXJ;  memory  currently  allows  for  approximately  200  nodew 
while  the  grid  could  accept  up  to  400  nodes.  NSER  is 
limited  to  a  single  digit  number.  The  single  digit 
limitation  is  derived  from  the  method  of  inputting  the 
command  parameter.  This  could  be  changed  by  adjusting  the 
input  format  of  the  commands  for  parallel  and  series.  NPAR 
is  also  limited  to  a  single  digit  number  but  is  used  to 
determine  how  many  parallel  links  each  node  must  have,  thus 
impacting  the  amount  of  memory  each  node  must  have.  The 
current  value  of  NPAR  is  6,  thus  6  words  of  memory  are  used 
for  the  parallel  links  of  each  node,  as  each  link  uses  a 
word  of  memory. 
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The  MAXI  and  MAXJ  constants  determine  the  column  and 
row  size  of  the  reliability  grid.  These  numbers  may  also 
be  adjusted  to  suit  the  users  need.  A  single  restriction 
is  that  the  MAXI  value  be  1  gre.  *»r  than  the  column  size  of 
the  grid  to  allow  for  an  invisible  terminal  node.  Any 
reference  to  grid  size  excludes  the  extra  column  that  the 
program  actually  needs.  The  minimum  values  should  allow 
for  a  10  by  10  grid;  the  maximum  size  the  program  can 
display  at  any  one  time.  The  current  values  of  20  by  20 
allow  for  a  demonstration  of  all  of  the  program 
capabl i ties. 

Types.  Pascal  allows  the  user  to  declare  nonstandard 
types  to  suit  the  programmers  need  and  enhance  self 
documentation.  The  Basics  unit  declares  four  new  typesx 
NODEPTR,  NODE,  CRTCOM,  and  CHARSET.  The  NODEPTR  type 
defines  variables  that  are  used  to  point  to  variables  of 
type  NODE.  The  type  NODE  is  a  record  data  structure  that 
contains  the  information  pertaining  to  each  component.  The 
type  CRTCOM  declares  the  names  of  the  variables  that  will 
be  used  as  console  commands.  The  type  CHARSET  declares 
variables  that  are  of  type  SET  OF  CHARacter. 

Variabl.es.  Pascal  forces  the  programmer  to  declare 
all  the  variables  the  program  uses  before  any  executable 
statements  of  that  block  are  compiled.  Each  block  may  have 
its  own  variables,  but  they  are  local  (in  force)  only  in 
that  block  or  a  subordinate  block.  Eight  different  types 
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of  global  variables  are  declared  for  the  program. 

The  INTEGER  type  includes  ICUR,  JCUR,  I MAX,  JMAX,  and 
NODES.  ICUR  and  JCUR  correspond  to  the  column  and  row  of 
the  lower  left  grid  postion  in  the  current  display.  These 
values  are  changed  as  user  moves  though  the  grid,  and  then 
are  used  to  provide  the  starting  position  of  the  display. 
IMAX  keeps  track  of  the  rightmost  column  in  the  grid,  while 
JMAX  keeps  track  of  the  highest  row  in  the  grid.  NODES 
keeps  a  running  count  of  the  number  of  nodes  currently  on 
the  grid. 

The  SCREENCOLOR  type  includes  only  COLOR.  This 
variable  is  used  to  indicate  what  color  to  draw  the  lines 
connectir  he  components  on  the  display.  It  is  currently 
set  to  Wh 

The  CHARacter  type  includes  ANS,  LABI,  and  LAB2.  ANS 
is  a  single  character  variable  that  is  used  to  pick  up 
keyboard  inputs  and  transmit  them  to  the  program.  LABI  and 
LAB2  are  also  single  character  variables  and  are  used  to 
provide  the  letters  the  autolabelling  procedure  uses  for 
component  labels. 

The  BOOLEAN  type  includes  AUTO  and  DATA.  AUTO  is  a 
true  or  false  variable  that  is  used  to  indicate  the  status 
of  the  autolabelling  option.  DATA  is  used  to  indicate  the 
status  of  the  reliability  gridi  true  indicates  the  grid 
contains  data  or  the  data  was  loaded  from  disk  and  £eLse 
indicates  that  the  grid  is  empty. 
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The  REAL  type  only  includes  DREL.  DREL  is  used  to 
contain  the  default  reliability  si'ected  by  the  user. 

Three  arrays  of  different  >.ypes  are  also  declared. 
CRTINFO  is  an  ARRAY  OF  CHARacters  indexed  by  the  type 
CRTCOM  that  contains  the  console  coautands.  PREFIXED  is  an 
ARRAY  OF  BOOLEAN  indexed  by  the  type  C'-.TLOM  tnat  determines 
if  the  console  command  selected  is  prefixed  by  an  escape 
character.  IJPOS  is  an  ARRAY  OF  NODEPTR  that  will  be 
discussed  as  a  data  structure. 

Data  Structures.  One  type  and  one  array  serve  as  the 
programs  only  data  structures.  The  type  NODE  represents 
each  component.  Each  node  is  dynamically  allocated  as  a 
new  component  is  defined.  This  method  uses  a  minimum 
amount  of  memory  for  a  given  size  grid.  The  record 
structure  used  provides  pointers  for  a  forward  and  backward 
link,  FLINK  and  BLINK,  and  NPAR  parallel  links  in  array 
PLINK.  I,  J  are  the  integer  grid  column  and  row  location 
of  the  component.  ID1  and  ID2  are  the  two  character 
variables  used  for  the  component  label.  REL  is  a  real 
number  for  the  component  reliability.  Each  link  needs  a 
single  word  of  storage  to  represent  any  address  in  memory. 

I  and  J  need  only  half  a  word  to  represent  a  integer  that 
can  be  no  larger  than  MAXI.  ID1  and  ID2  need  half  a  word 
to  represent  a  REL  needs  2  words  to  represent  a  real 
number.  Thus,  a  node  currently  needs  12  words  of  memory. 
This  scheme  could  be  changed  by  replacing  the  pointers  with 
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<I,«J>  grid  locations  to  allow  for  storage  to  disk  and  not 
change  the  memory  requirements  of  each  node. 

The  array  IJPOS  serves  as  the  other  data  structure. 
This  array,  as  sized  by  MAXI  and  MAXJ,  provides  the  grid  of 
pointers  that  determine  the  location  of  each  of  the 
components.  This  structure  could  possibly  be  combined  with 
the  record  structure  to  make  the  disk  to  memory  transfer  a 
simple  task.  This  idea  is  left  as  a  program  enhancement, 
which  could  discard  the  power  of  the  dynamically  allocated 
scheme  in  favor  of  a  static  array  structure  losing  a 
substantial  amount  of  the  surplus  memory  available  for 
other  enhancements. 

Routines 

The  Basics  unit  contains  9  general  purpose  routines,  6 
display  routines,  and  2  cursor  movement  routines.  The 
display  and  cursor  movement  routines  a^i  edit  segment 
functions  but  are  placed  in  the  unit  to  balance  the  size  of 
the  main  program  segments.  The  purpose  of  each  routine 
will  be  briefly  discussed;  study  of  the  program  listing  of 
each  routine  will  provide  the  details. 

CRT.  The  procedure  CRT  is  used  to  carry  out  the 
specified  console  command.  This  routine  was  borrowed  from 
the  DISKIO  program,  which  can  be  found  on  the  Apple  Pascal 
system  diskette  APPLE3* . 
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BACKUP.  The  procedure  BACKUP  is  used  to  back  the 
character  cursor  up  on  either  the  text  or  display  screen 
depending  on  the  option  selected.  This  fuction  enables  the 
back  arrow  key.  This  routine  is  a  modified  version  of  a 
code  sequence  in  the  DISKIO  program. 

6EI0NS.  The  function  GETANS  is  used  to  obtain  a 
single  character  input  from  the  user.  The  routine  will 
echo  the  input  to  the  text  or  graphics  screen  depending  on 
the  option  selected.  The  routine  also  knows  the  only 
possible  answers  and  will  cycle  until  a  correct  response  is 
obtained.  This  routine  is  also  a  modified  version  of  a 
routine  in  the  DISKIO  program. 

GEISIR.  The  procedure  GETSTR  is  similar  to  GETANS  and 
is  used  to  obtain  string  input  from  the  user.  This  routine 
will  also  echo  the  input  to  the  correct  screen.  The 
original  of  this  routine  is  found  in  the  DISKIO  program. 

GETREL.  The  function  6ETREL  is  used  to  change  an 
input  string  representing  a  real  number  into  a  real  number 
represented  by  a  variable.  The  function  manipulates  real 
number  input  strings  such  as  .7239  into  the  correct 
internal  representation  between  the  values  of  1.0  and  0.0. 
All  three  of  the  GET  routines  are  sophisticated  and  deserve 
close  attention. 

BISPLAYAI-  The  procedure  DISPLAYAT  is  used  to 
communicate  with  the  user  on  the  display  screen.  The 
routine  can  clear  the  message  area  before  displaying 
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depending  on  the  option  selected  and  can  affect  only  a 
limited  portion  of  the  message  area  if  necessary. 

INSTRUCT.  The  procedure  INSTRUCT  is  used  to  enable 
the  <ESC>  key  to  display  the  quick  reference  command  list 
on  the  text  screen.  The  words  always  exist  on  the  text 
screen,  the  routine  just  switches  from  graphics  display 
screen  to  the  text  screen  to  show  them  and  then  back  to  the 
unchanged  reliability  display. 

AUTOLAB.  The  procedure  AUTOLAB  is  used  to 
automatically  label  a  components  ID  if  the  autolabelling 
option  is  on.  The  default  is  on,  but  can  be  changed  during 
program  execution  from  the  change  menu. 

1NITNQDE.  The  final  general  purpose  procedure, 
INITNODE  is  used  to  initialize  each  node  as  required.  The 
links  are  appropri atel y  set,  as  are  the  reliability  and 
label.  The  I  and  J  positions  are  also  set  according  to 
input  parameters. 

XPOS .  The  function  XPOS  is  the  first  of  the  six 
display  routines  and  is  used  to  determine  the  X  coordinate 
of  the  display  screen  position  from  the  value  of  1  for  the 
component.  This  routine  is  scaled  to  provide  for  10 
components  horizontally.  Each  component  needs  28  dots  and 
there  are  280  dots  available  horizontally.  The  position  on 
the  screen  is  based  on  the  current  value  of  ICUR. 
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YPQS-  The  -function  YPOS  is  used  as  XPOS  to  determine 
the  Y  coordinate.  This  routine  is  scaled  to  provide  10 
components  vertically  and  a  message  area  at  the  bottom  of 
the  display.  Each  component  needs  IB  dots  and  there  are 
192  dots  available  leaving  12  dots  for  the  message  area,  or 
enough  for  more  than  a  line  of  text. 

QtJECKDIS.  The  function  CHECKDIS  is  used  to  check  if 
the  cursor  component  has  been  shifted  out  of  the  displayed 
grid.  If  outside  the  display,  ICUR  and  JCUR  are  adjusted 
to  center  to  current  component  and  the  function  is  set 
true.  The  value  of  the  function  is  used  to  determine  if 
the  display  should  be  changed.  This  routine  is  used  in 
conjunction  with  DISPLAY  to  constantly  keep  the  cursor 
component  on  the  displayed  part  of  the  grid. 

DGQbEQN-  The  procedure  DCOMPON  is  used  to  display  an 
individual  component  in  the  mode  selected.  This  routine 
provides  the  white  on  black  or  black  on  white  components 
for  the  display.  It  is  called  by  the  DISPLAY  routine. 

BI§PL£W.  The  procedure  DISPLAY  is  used  to  display  the 
grid  on  the  graphics  screen.  The  routine  displays  the  grid 
starting  from  position  (1,1).  THis  insures  that  all  the 
connecting  lines  will  be  displayed.  The  components  do  not 
appear  on  the  screen  until  the  X  and  Y  positions  determined 
from  XPOS  and  YPOS  routines  are  plottable  locations  for  the 
DCOMPON  routine.  This  routine  has  two  local  procedures. 
DEXTEND  draws  the  line  from  the  component  being  displayed 
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to  that  components  -forward  link.  DASCEND  draws  the  line 


from  the  component  being  displayed  to  the  highest  component 
that  is  in  parallel. 

EQilllQN-  The  procedure  POSITION  is  the  last  display 
routine  and  is  used  to  display  the  current  row  and  column 
of  the  cursor  component  in  the  message  area. 

UPDOWN.  The  procedure  UPDOWN  is  used  to  move  the 
cursor  component  up  or  down  on  the  display  grid  depending 
on  the  sign  of  the  parameter.  If  no  component  is  found  at 
that  location  the  routine  checks  to  the  right  and  left  to 
find  a  target.  If  still  unsuccessful  the  routine  will  move 
one  row  vertically  towards  the  original  component  and  try 
again.  This  can  continue  until  a  target  or  the  original 
component  is  found. 

LEFTRlGHI.  The  procedure  LEFTRIGHT  is  used  in  the 
same  manner  as  the  UPDOWN  routine  but  using  horizontal 
moves  and  checking  above  and  below. 
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Internal  Sections  Mai_n  Program 


The  main  program  is  divided  into  four  parts:  the 
executive  routine,  the  initialize  segment,  the  edit 
segment,  and  the  analyze  segment.  The  executive  controls 
the  three  segments;  each  segment  is  an  independent 
procedure  that  has  its  own  executive  and  procedures.  This 
section  will  discuss  the  executive  routine  and  then  each 
segment.  The  segment  discussion  will  detail  that  segment’s 
executive  routine  and  procedures. 

Executive 

The  executive  routine  is  responsible  for  scheduling 
the  original  order  of  the  segments  and  then  controls  the 
main  menu.  The  first  function  is  nothing  more  than  calling 
the  initialize  segment  and  then  calling  the  edit  segment. 
The  generate  sequence  is  executed  if  the  user  does  not  have 
data  from  disk  and  the  edit  sequence  is  executed  if  the 
user  loaded  the  reliability  grid  with  data  from  disk. 
Completing  this  task  the  executive  routine  becomes  the  main 
menu,  selecting  the  correct  segment  based  on  the  user 
input.  The  use  of  three  independent  segment  procedures, 
each  with  there  own  executive  routine,  has  made  the 
operation  of  the  main  program  executive  very  simples  the 
selection  of  the  next  segment  to  be  executed  or  program 
termination. 
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initialize  Segment 

The  initialize  segment  functions  in  two  ways:  first, 
to  prepare  the  program  for  operation,  and  second,  to  allow 
the  user  to  clear  the  grid  and  begin  a  new  problem.  This 
segment  contains  six  procedures. 

Executive .  The  initialize  executive  routine  serves 
four  functions.  First,  the  GETCRT  procedure  is  called  the 
first  time  the  initialize  segment  is  called.  This 
procedure  determines  the  console  commands.  The  option  to 
return  to  the  main  menu  is  defeated  the  first  time. 

Second,  the  global  variables  are  all  preset  to  their 
defaults.  Third,  the  defaults  can  be  changed  by  the  user 
by  selecting  the  correct  option.  And  fourth,  the  data  grid 
is  initialized  or  loaded  from  disk  depending  on  user 
selection.  Control  is  then  transfered  back  to  the  main 
program. 

GEICRI .  The  procedure  SETCRT  is  used  to  determine  the 
console  commands.  The  routine  accesses  the  Pascal 
SYSTEM. MISCINFO  file  for  the  characters  used  as  console 
commands.  This  file  varies  depending  on  the  terminal 
system  connected  to  the  Apple.  This  routine  will  read  the 
file  for  any  type  terminal  and  insure  that  the  program  has 
the  correct  commands.  The  CRTINFO  and  PREFIXED  arrays  are 
set  to  the  appropriate  values  for  use  by  the  CRT  procedure 
of  the  Basics  unit.  This  routine  was  borrowed  from  the 
DISKIO  program. 
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SBQtJEIfil*  The  procedure  PROMPT AT  is  used  to  position 
the  text  screen  cursor  at  a  particular  line  and  then  write 
a  line  o-f  text.  This  routine  clears  the  keyboard  buffer  to 
insure  the  user  does  not  type  ahead.  This  routine  was 
borrowed  from  the  DISKIO  program. 

INIRQ-  The  procedure  INTRO  is  used  to  display  the 
general  system  information  on  the  text  screen  and  present 
to  the  user  as  the  program  begins. 

IN I IB I SPLAY.  The  procedure  INITDISPLAY  is  used  to 
initialize  the  data  grid  array  1JPOS  and  preset  the  display 
screen  for  use  by  the  program.  The  first  and  invisible 
last  nodes  are  inserted  in  their  proper  places  to  start  the 
reliability  grid. 

GEIDAIA.  The  procedure  GETOATA  is  not  yet 
implemented.  This  routine  would  be  used  to  query  the  user 
for  the  disk  file  from  which  to  preload  the  reliability 
grid.  This  stub  is  provided  with  all  the  linkage  necessary 
to  operate  in  the  program  if  this  routine  is  implemented. 

I NFC.  The  procedure  INFO  is  the  last  routine  of  the 
initialize  segment  and  is  used  to  write  the  quick  reference 
command  list  to  the  text  screen.  This  list  is  displayed  by 
the  INSTRUCT  procedure  in  the  BASICS  unit. 

Edi_t  Segment 

The  edit  segment  has  two  functions:  provide  for  the 
generate  and  edit  sequences.  All  of  the  data  manipulation 
occurs  in  the  edit  segment.  This  segment  is  by  far  the 
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largest  in  the  program  and  has  16  subordinate  routines. 

Executive.  The  edit  executive  routine  must  insure  a 
generate  sequence  is  initiated  if  the  data  grid  is  empty, 
otherwise  only  an  edit  sequence  occurs.  The  generate 
sequence  is  of  the  same  form  as  the  edit  sequence.  The 
current  grid  is  displayed  with  the  menu  and  the  user  is 
able  to  select  a  command.  The  generate  sequence  is  limited 
to  the  P)arallel,  S)eries,  L)abel  and  N)ext  commands. 
Completion  of  a  generate  sequence  causes  the  edit  menu  to 
be  displayed  with  no  change  to  the  grid  and  the  edit 
sequence  to  be  initiated.  The  full  command  set  is  now 
available,  RJemove,  Ohange,  and  the  cursor  movement 
commands,  along  with  the  Q>uit  command  to  return  to  the 
main  menu.  Both  sequences  use  this  structures  check  the 
cursor  component  for  a  grid  change  and  display  the  change, 
highlight  the  cursor  component  and  update  the  position 
information,  display  the  menu  and  wait  for  an  appropriate 
command,  reset  the  cursor  component  and  execute  the 
command,  repeat  until  the  Q)uit  command  is  selected.  Each 
routine  that  has  its  own  menu  also  functions  in  this  same 
basic  manner. 

LABLE.  The  procedure  LABLE  (sic)  is  used  to  input  the 
label  and  reliability  for  every  component.  The  routine 
interacts  through  the  message  area  on  the  display  screen 
and  the  display  changes  immediately.  The  routine  will 
automatically  label  a  component  if  the  option  is  turned  on. 
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The  routine  converts  the  input  string  to  the  appropriate 
internal  representation.  If  only  a  <RETURN>  is  input  then 
the  current  value  Mill  be  retained. 

The  procedure  PARALLEL  is  one  of  the 
recursive  pair  of  routines  that  generate  the  grid.  This 
routine  has  its  own  executive  and  five  subordinate 
procedures:  ERRORPAR,  ABOVEPAR,  CHECKPAR,  SHIFTPAR,  and 
INSERTPAR.  The  executive  and  routines  perform  in  the 
following  fashion.  First,  CHECKPAR  determines  if  the 
commanded  number  can  be  input.  The  user  hears  two  beeps  if 
this  can  not  be  done,  the  routine  takes  appropriate  action 
to  complete  the  command.  If  no  space  is  left  the  LABLE 
procedure  is  invoked  and  the  procedure  exits  to  the  calling 
procedure.  Second,  ABOVEPAR  allocates  the  amount  of  space 
needed  to  complete  the  command.  Third,  CHECKPAR  reduces 
the  amount  to  fit  the  available  space  and  exits  as  in 
CHECKPAR  if  no  space  is  available.  Fourth,  SHIFTPAR 
actually  moves  the  components  in  the  grid  to  make  room  for 
the  new  parallel  structure.  Fifth,  INSERTPAR  is  used  to 
place  the  possibly  reduced  amount  into  the  grid.  Finally, 
the  basic  executive  sequence  with  the  menu  of  Sleries, 
L)ABEL,  or  N)ext  is  executed  with  each  inserted  component 
as  the  cursor  component.  The  other  half  of  the  recursive 
pair,  SERIES,  may  now  be  called. 
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SERIES.  The  procedure  SERIES  is  the  other  half  of  the 
recursive  pair  and  is  used  to  insert  series  structures  into 
the  grid.  The  routine  has  an  executive  routine  and  three 
subbordinate  procedures:  CHECKSER,  SHIFTSER,  and  INSERTSER. 
The  executive  and  the  procedures  perform  in  the  following 
manner.  First,  the  executive  determines  if  a  conflict 
exists  due  to  the  commanded  number.  Second  CHECKSER 
provides  error  checking  as  in  the  PARALLEL  routine  and 
exits  to  the  calling  procedure  if  an  error  can  not  be 
resolved.  Third,  SHIFTSER  moves  the  components  in  the  grid 
to  provide  the  needed  space.  Fourth,  INSERTSER  puts  the 
possibly  reduced  number  of  components  into  the  grid. 
Finally,  the  basic  executive  sequence  is  executed  with  the 
Plarallel,  L)abel  or  N)ext  commands  for  each  component  as 
in  the  PARALLEL  routine.  The  PARALLEL  routine  may  now  be 
called  recursively.  The  generate  sequence  alternates  in 
the  above  fashion  between  the  PARALLEL  and  SERIES  routines. 

REMOVE.  The  procedure  REMOVE  is  used  to  remove  a 
component  from  the  grid.  The  routine  is  not  very 
sophisticated  and  as  such  the  routine  can  only  be  used  in  a 
certain  sequence.  To  remove  a  series  component,  that 
component  must  not  be  the  first  component  of  a  series 
placed  in  a  parallel  structure  or  the  component  that  a 
parallel  structure  terminates  before.  To  remove  a  parallel 
component,  that  component  must  a  single  component  in 
parallel  with  other  single  components  and  not  the  lowest 
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component  in  the  structure. 

Q§EQUi=I«  The  procedure  DEFAULT  is  used  to  change  to 
default  reliability.  The  input  string  is  entered  through 
the  display  screen  communication  area  and  parsed  to  the 
appropriate  internal  value  and  stored  in  the  variable  DREL. 
If  <RETURN>  is  the  only  input,  the  value  of  DREL  is  not 
changed. 

CHANGE.  The  procedure  CHANGE  serves  as  a  submenu  for 
the  edit  sequence  to  provide  for  the  commands  P)arallel, 
S)eries,  L)abel,  Dlefault,  and  T)oggle,  along  with  Q)uit  to 
return  to  the  edit  sequence  menu.  This  routine  takes  the 
form  of  a  basic  executive  sequence.  The  Tloggle  command  is 
simply  switching  the  boolean  variable  AUTO  from  true  to 
false  or  the  reverse,  thus  controlling  the  autolabelling 
option.  This  routine  will  automatically  exit  to  the  edit 
menu  after  all  but  the  T)oggle  and  D)efault  commands. 
Analyze  Segment 

The  analyze  segment  has  three  functions:  calculate  the 
reliability  of  the  grid,  print  a  representation  of  the  grid 
to  paper,  and  store  the  grid  to  disk.  This  segment  has  a 
minimal  executive  that  echos  the  choice  made  from  the  main 
menu  for  one  of  the  three  functions.  This  structure 
eliminates  the  need  for  a  separate  analyze  menu.  The 
segment  contains  nine  subordinate  procedures. 
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ANALYZE.  The  procedure  ANALYZE  is  used  to  calculate 
the  reliability  of  the  system  on  the  grid.  This  routine 
has  three  subordinate  routines  that  recursively  call  one 

f 

another  to  calculate  the  reliability:  ANALMULT,  ANALSER, 
and  ANALPAR.  First,  ANALMULT  is  called  by  the  analyze 
executive  sequence  to  start  the  process.  This  routine 
multiplies  the  next  structure  in  series  by  the  current 
reliability.  I-f  the  next  structure  is  a  parallel 
structure,  ANALPAR  is  called  to  provide  the  reliability  of 
that  structure.  ANALPAR  in  turn  calls  ANALSER  to  calculate 
the  reliability  of  each  series  structure  that  make  up  the 
parallel  structure.  ANALSER  recursively  calls  ANALMULT  to 
multiply  the  structures  in  series  together.  This  sequence 
is  repeated  as  many  times  as  necessary  to  reach  the  right 
most  component  in  the  grid.  The  ANALPAR  routine  is  the 
critical  part  of  the  process  and  is  very  sophisticated  in 
the  manner  of  knowing  when  to  close  a  parallel  structure. 
The  resulting  reliability  is  displayed  in  the  message  area. 
The  user  can  then  print  the  grid  by  pressing  the  <RETURN> 
key  or  any  other  key  to  return  to  the  main  menu. 

E5IC!I-  The  procedure  PRINT  uses  the  routines  OUT  and 
PAROUT  to  print  a  representation  of  the  reliability  grid  to 
a  piece  of  paper.  The  result  is  <I,J)  grid  locations  of 
the  components,  the  component  reliability,  and  the 
components  they  are  linked  to  and  from.  The  analyze 
routine  can  be  called  from  this  routine. 
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SIQRDATA.  The  procedure  STORDATA  is  the  counterpart 
of  the  6ETDATA  procedure  and  as  such  is  not  yet 
implemented.  The  linkage  for  execution  has  been 
incorporated  into  the  program. 
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Procedure  Hierarchy  Chart 
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AD-AU1  *29  AIK  FORCE  INST  OF  TECH  WRI9HT-PATTERSON  AFB  OH  SCHOO— ETC  f/%  9/* 
SYSTEM  RELIABILITY:  A  MICROCOMPUTER  SOLUTION  TECHNIQUE* <U> 

DEC  81  DR  TUROS 

UNCLASSIFIED  AFIT/OOR/OS/S1D-9  _  NL 


UNIT  DECLARATION 


BASICS  UNIT 


<**S+«)  (*  COMPILER  SWAPPING  OPTION  MUST  BE  ON  *> 

UNIT  BASICS;  INTRINSIC  CODE  25  DATA  26; 

<*t*t*ts****t*»******»t**t«t**t*t****t**t»t***t*t***«t** 

<* 

<*  THIS  UNIT  CONTAINS  MANY  OF  THE  SPECIAL  PURPOSE 

(*  ROUTINES  USED  IN  THE  SYSTEM  RELIABILITY  PROGRAM. 

(* 

(*  THE  PROGRAM  WAS  WRITTEN  BY  CAPT  DON  TUROS 

<*  WHILE  A  STUDENT  AT  AFIT  AS  A  THESIS  EFFORT.  SOME 
(*  MATERIAL  AND  ALGORITHMS  WERE  BORROWED  FROM  EXAMPLES 
<*  PRESENTED  IN  THE  APPLE  1C  PASCAL  OPERATING  SYSTEM 
<*  MANUAL.  SPECIFIC  MODULES  ARE  MENTIONED  IN  LINE. 

(* 

( ******************************************************* 

INTERFACE 

USES  TURTLEGRAPHICS; <* 

CONST  MAXX  =  279;  <* 

MAXY  =191;  <* 

NREC  =  lOO;  <* 

NSER  =  8;  <* 

NPAR  =6;  <* 

MAXI  =  21;  <* 

<* 

MAXJ  =20;  <* 

TYPE  NODEPTR  =  '"'NODE; 

NODE  =  PACKED  RECORD 

FLINK,  BLINK  :  NODEPTR; 

PLINK  s  PACKED  ARRAY! 1 . . NPAR3  OF  NODEPTR; 
I,J  :  1..MAXI; 

ID1 , ID2  :  CHAR; 

REL  :  REAL; 

END; 

CRTCOM  =  (EOS, EOL, UP, DN, RT, LT, LI ) ; 

CHARSET  =  SET  OF  CHAR; 

VAR  ICUR, JCUR, IMAX,JMAX, NODES  :  INTEGER; 

IJPOS  :  ARRAY! 1 . . MAX 1,1.. MAXJ 1  OF  NODEPTR; 

COLOR  t  SCREENCOLOR; 

ANS , LAB 1 , LAB2  :  CHAR; 

AUTO, DATA  :  BOOLEAN; 

DREL  :  REAL; 

CRT INFO  :  PACKED  ARRAY! CRTCOM 1  OF  CHAR; 

PREFIXED  *  ARRAY C CRTCOM ]  OF  BOOLEAN; 


FOR  ALL  GRAPHICS  *) 

MAX  X  SCREEN  POSITION  *) 
MAX  Y  SCREEN  POSITION  *) 
USER  SET  *  OF  NODES  *) 
USER  SET  #  IN  SERIES  *> 
USER  SET  *  IN  PARALLEL  *) 
USER  SET  MAX  COLUMNS  *) 
MUST  BE  #  COL  +1  *> 
USER  SET  MAX  ROWS  *) 
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UNIT  DECLARATION 


BASICS  UNIT 


<t  GENERAL  USAGE  ROUTINES  *) 

PROCEDURE  CRT (C  S  CRTCOM) 5 
PROCEDURE  BACKUP (OPT  :  INTEGER); 

FUNCTION  GETANS (OPT  s  INTEGER;  OKSET  sCHARSET)  s  CHAR; 
PROCEDURE  GETSTR (OPT  s INTEGER;  VAR  S: STRING;  MAX: INTEGER) ; 
FUNCTION  GETREL (S  :  STRING)  :  REAL; 

PROCEDURE  DISPLAYAT (OPT  :  INTEGER;  LOC: INTEGER;  S: STRING); 
PROCEDURE  INSTRUCT; 

PROCEDURE  AUTQLAB (C  :  NODEPTR) ; 

PROCEDURE  INITNODE ( I , J  :  INTEGER;  VAR  C  :  NODEPTR); 

(*  DISPLAY  ROUTINES  t) 

FUNCTION  XPOS(I  :  INTEGER)  :  INTEGER; 

FUNCTION  YPOS(J  :  INTEGER)  :  INTEGER; 

FUNCTION  CHECKDIS (OPT  :  INTEGER;  C  :  NODEPTR)  :  BOOLEAN; 
PROCEDURE  DCOMPON(C  :  NODEPTR;  MODE  :  INTEGER); 

PROCEDURE  DISPLAY; 

PROCEDURE  POSITION (C  :  NODEPTR); 

(t  CURSOR  MOVEMENT  ROUTINES  *) 

PROCEDURE  UPDOWN ( J  :  INTEGER;  VAR  C  :  NODEPTR); 

PROCEDURE  LEFTRIGHT ( I  :  INTEGER;  VAR  C  :  NODEPTR); 
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GENERAL  USAGE  ROUTINES 


BASICS  UNIT 


IMPLEMENTATION 
PROCEDURE  CRT | 

(*  BORROWED  FROM  DISKIO  ») 

<*  ACTIONS  OCCURS  AT  THE  CURRENT  CURSOR  POSITION  *> 

BEGIN 

IF  PREFIXEDCC3  THEN  UNITWRITE ( i , CRTINFOCLI3 , 1 ,0, 12) $ 
UNITWRITE ( I , CRTINFOCCJ , 1,0, 12) ; 

END; 


PROCEDURE  BACKUP; 

<t  OPT  =  1  ->  BACKSPACE  ON  DISPLAY  *> 

(*  ELSE  ->  BACKSPACE  ON  TEXT  SCREEN  *> 

BEGIN 

IF  OPT  =  O  THEN 
BEGIN 

MOVETO< TURTLE X  -  7, TURTLEY) ; 

WCHAR  < ’  ' ) ; 

MOVETOt TURTLE X  -  7, TURTLEY); 

END 

ELSE 

BEGIN 

CRT  <LT)  ; 

WRITE ’); 

CRT (LT) ; 

END; 

END; 
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GENERAL  USAGE  ROUTINES 


BASICS  UNIT 


FUNCTION  GETANS; 


(t 

BORROWED  FROM  DISKIO 

*) 

(* 

OPT  = 

1  -> 

ECHO  TO 

TEXT  SCREEN 

*) 

(* 

OPT  a 

O  -> 

ECHO  TO 

DISPLAY 

*) 

(* 

ELSE 

-> 

NO  ECHO 

AT  ALL 

*) 

VAR  CH  t  CHAR; 

GOOD  :  BOOLEAN; 

BEGIN 

REPEAT 

READ  (KEYBOARD , CH) ; 

IF  EOLN (KEYBOARD)  THEN  CH:=CHR<13) ; 
GOOD: =CH  IN  OK SET; 

IF  NOT  GOOD  THEN  WRITE (CHR (7) ) 

ELSE  IF  CH  IN  t’  ’..’Z’J  THEN 
BEGIN 

IF  OPT  =  1  THEN  WRITE (CH) ; 

IF  OPT  »  O  THEN  WCHAR(CH); 
END; 

UNTIL  GOOD; 

GETANS :=CH; 

END; 
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GENERAL  USAGE  ROUTINES 


BASICS  UNIT 


PROCEDURE  GETSTR; 

<*  BORROWED  FROM  DISKIO  t> 

(t  OPT  =  O  ->  OPERATE  ON  DISPLAY  *> 

(*  ELSE  ->  OPERATE  ON  TEXT  SCREEN  *> 

VAR  ANS  *  STRING! 13; 

BEGIN 
S: =’ * ; 

ANS: =’ 

REPEAT 

IF  LENGTH (S)  «  O  THEN 

ANS! 1 3 t =GETANS (OPT, C  '  ’ . . ’ Z ' , CHR ( 13) J ) 

ELSE 

IF  LENGTH <S>  =  MAX  THEN 

ANSC 13: =GETANS (OPT, CCHR (8) , CHR ( 13) 1 > 

ELSE 

ANSC 13s=GETANS(OPT, C  *  ' . . ’ Z’ ,CHR(8) ,CHR(13) ]); 
IF  ANSC 1 1  IN  C’  ’ . . ’ Z’ 3  THEN 
S: — CONCAT (S, ANS) 

ELSE 

IF  ANSC 13  »  CHR (8)  THEN 
BEGIN 

BACKUP (OPT); 

DELETE (S, LENGTH (S) , 1 ) ; 

END; 

UNTIL  ANSC 13  «  CHR (13); 

END; 
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GENERAL  USAGE  ROUTINES  BASICS  UNIT 

FUNCTION  GETREL; 

VAR  I,J  i  INTEGER; 

RL  i  REAL; 


BEGIN 

RLs =0.0; 

IF  SC  13  =  ”1’  THEN 
RLs  =1 . 0 
ELSE 
BEGIN 

Is=POS(’ . ’ ,S>  +  1; 

Js=10; 

WHILE  I  <  (LENGTH (S)  +  1 )  DO 
IF  SC  I  3  IN  C ’ O’ . . ’ 9’ 3  THEN 
BEGIN 

RLs  =RL  +  (ORD (SC 1 3 >  -  48)  /  J; 
J S  =J  *  10; 

Is-I  +  1; 

END 

ELSE 

I s “LENGTH (S)  +  1; 

END; 

GETREL: =RL; 

END; 
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GENERAL  USAGE  ROUTINES 


BASICS  UNIT 


PROCEDURE  DISPLAY AT; 

(*  OPT  *  1  -  RESET  GRAPHICS  SCREEN  MESSAGE  AREA  «) 
BEGIN 

UNITCLEAR  ( 1 ) ; 

IF  OPT  *  1  THEN 
BEGIN 

VIEWPORT (L0C,MAXX,0, 10) ; 

FILLSCREEN (BLACK) ; 

PENCOLOR (NONE) ; 

MOVETO (LOC, O) ; 

VIEWPORT (O, MAXX , O, MAXY) ; 

END; 

CHARTYPE ( 10) $ 

WSTRING(S)  ; 

END; 


PROCEDURE  INSTRUCT; 

VAR  ANS  :  CHAR; 

BEGIN 

TEXTMODE; 

ANSs=GETANS(2,  C’  ,..,Z,3); 
GRAFMODE; 

END; 
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GENERAL  USAGE  ROUTINES 


BASICS  UNIT 


PROCEDURE  AUTOLAB) 

BEGIN 

IF  AUTO  AND  (C"'.  ID1  »  ’  ’  )  THEN 
BEGIN 

IF  LAB2  =  ’ 9*  THEN 
BEGIN 

LABI : =SUCC (LABI ) ; 

IF  LABI  =  ’Z’  THEN  LAB1:=’A’; 
LAB2: =’ O’ ; 

END; 

LAB2: =SUCC (LAB2)  ; 

C~. ID1 : —LABI ; 

C''.  ID2s=LAB2; 

END; 

END; 


PROCEDURE  INITNODE; 

VAR  K  s  INTEGER; 

BEGIN 

NODES: =NODES  +  1; 

NEW (C) ; 

C~.FLINK:=NIL; 

C~. BLINK: =NIL; 

FOR  K:=  1  TO  NPAR  DO 
C^.PLINKCK3:=NIL; 

CA. ID1:=’  ’; 

C~. ID2:=’  ’; 

AUTOLAB (C) ; 

C'".  I :  =1 ; 

C~. J:=J; 

C~.REL*=DREL; 

IJPOSCI, J3:=C; 

IF  NODES  >  NREC  THEN 
BEGIN 

WRITE<CHR(7) ,CHR(7) ) ; 

DISPLAYATU,0,  ’#  OF  NODES  EXCEED  MAXIMUM’); 
ANS: -GETANS  <2, C ’  ’..’Z’3); 

END; 

END; 
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DISPLAY  ROUTINES 


BASICS  UNIT 


FUNCTION  XPOS; 

<*  ALLOWS  10  HORIZONTAL  COMPONENTS  ON  SCREEN  *) 
BEGIN 

XPOS: = ( I— I CUR) *28; 

END; 


FUNCTION  YPOS; 

(*  ALLOWS  lO  VERTICAL  COMPONENTS  ON  SCREEN  *) 
BEGIN 

YPOSs = ( J-JCUR) *18+18; 

END; 
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DISPLAY  ROUTINES  BASICS  UNIT 

FUNCTION  CHECK'D  I  S| 

<*  OPT  «■  1  -  FIRST  COMPONENT  ->  A  NEW  DISPLAY  *) 

VAR  I,J  s  INTEGER) 

BEGIN 

CHECKDIS: = FALSE; 

I : =C~. 1 5 
J:=C'.J; 

IF  <(  I  >  I CUR  +  9  )  OR  (  I CUR  >  I  ) )  THEN 
BEGIN 

CHECKDIS: —TRUE; 

ICUR: =1  -  5; 

IF  ICUR  <=  1  THEN 
ICUR: =1 
ELSE 

IF  ICUR  >*  MAXI  -  lO  THEN 
ICUR: =MAX I  -  10; 

END; 

IF  <  (  J  >  JCUR  9  )  OR  <  JCUR  >  J  )  )  THEN 
BEGIN 

CHECKDIS: =TRUE; 

JCUR: =J  -  5; 

IF  JCUR  <*  1  THEN 
JCUR: =1 
ELSE 

IF  JCUR  >=  MAXJ  -  9  THEN 
JCUR: = MAX J  -  9; 

END; 

IF  OPT  =  1  THEN  CHECKDIS: *TRUE; 

END; 
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DISPLAY  ROUTINES 


BASICS  UNIT 


PROCEDURE  DCOMPON ; 

VAR  X ,  Y,  R  s  INTEGER; 

RL  s  STRINGC23; 


BEGIN 

PENCOLOR  <  NONE ) ; 

Xs=XPOS(C~.  I)  ; 

Y:=YPOS(CA. J> ; 

IF  Y  <  11  THEN  EX  IT (DCOMPON) ; 

MOVETO (X+3.Y) ; 

PENCOLOR (COLOR) ; 

MOVE (21) ; 

CHART YPE (MODE) ; 

MOVETO ( X+8, Y+l ) ; 

WCHAR(C~. ID1) ; 

WCHAR(C~. ID2) ; 

MOVETO ( X+8, Y-7) ; 

R:=R0UND(C^.REL*100) ; 

IF  R  =  lOO  THEN  RL:='l  7 
ELSE 
BEGIN 

STR (R, RL) s 

IF  R  <  lO  THEN  RL :  *=CONCAT  ('O',  RL )  ; 
END; 

WSTRING (RL) ; 

END; 


;  • 
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DISPLAY  ROUTINES 


BASICS  UNIT 


PROCEDURE  DISPLAY* 

VAR  C  s  NODEPTR* 

I,J  :  INTEGER; 


PROCEDURE  DEXTEND <C  s  NODEPTR); 

VAR  NEW  :  NODEPTR; 

X,Y,XNEW,YNEW  :  INTEGER; 


BEGIN 

X:=XPOS(CA. I) ; 

Yi— YPOS(CA. J) ; 

NEW:  =C'"‘.  FLINK; 

XNEW:  =XPOS  (NEW''.  I ) ; 
YNEW:  =YPOS  (NEW''.  J )  ; 
PENCOLOR (NONE) ; 

MOVETO ( X+24, Y) ; 
PENCOLOR (COLOR) ; 

MOVETO ( XNEW— 3, Y) ; 

IF  YNEW  =  Y  THEN 
MOVETO (XNEW+3, Y) 

ELSE 

MOVETO ( XNEW— 3, YNEW) ; 

END; 
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DISPLAY  ROUTINES 


BASICS  UNIT 


PROCEDURE  DASCEND (C  :  NODEPTR) ; 

VAR  MAX  s  NODEPTR; 

J,X,Y,YMAX  :  INTEGER; 

DONE  :  BOOLEAN; 


BEGIN 
MAX: =C; 

DONE: =FALSE; 

J:=l; 

REPEAT 

IF  CA. PLINKC J I  =  NIL  THEN  DONE: =TRUE 
ELSE 
BEGIN 

IF  MAX^.J  <  C^.PLINKCJl'".  J  THEN 
MAX:  =0"".  PLINKC  J  3 ; 

J  :  =  J  1 ; 

END; 

UNTIL  DONE  OR  (J  =  NPAR  +1); 

IF  J  <>  1  THEN 
BEGIN 

X:=XPOS<C^. I) ; 

Y:=YPOS(C~. J) ; 

YMAX:=YPOS<MAX~. J) s 
PENCOLOR (NONE ) ; 

MOVETO  <  X+3, Y) ; 

PENCOLOR (COLOR) ; 

MOVETO < X+3, YMAX > ; 

END; 

END; 
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DISPLAY  ROUTINES 


BASICS  UNIT 


<«  DISPLAY  MAIN  BODY  S) 

BEGIN 

INITTURTLE; 

VIEWPORT <0,MAXX, 11, MAXY) ; 

FOR  J:=l  TO  JCUR+9  DO 
FOR  I*=l  TO  ICUR+9  DO 
BEGIN 

Cs=IJPOSCI, J3; 

IF  (CO  NIL)  THEN 
IF  C~.  ID1  <>  ’  *’  THEN 
BEGIN 

DCOMPON (C, 5) ; 
DEXTEND (C) ; 
DASCEND (C) ; 

END; 

END; 

VIEWPORT (0,MAXX,0, MAXY)  ; 

END; 


PROCEDURE  POSITION; 

VAR  IJ  s  STRINGC2J ; 

BEGIN 

PENCOLOR (NONE) ; 

CHARTYPE ( 10) ; 

MOVETO (0,0) ; 

I  J:  =  ’  ’ ; 

STR(C^. J, IJ) ; 

IF  C^.J  <  lO  THEN  I J : =CONCAT ( ’  ’,IJ); 
WSTRING ( I J ) ; 

WCHAR  (O’); 

IJs=’  ’; 

STR(C~. I, IJ) ; 

IF  C~. I  <  lO  THEN  IJs=CONCAT (’  ’,IJ); 
WSTRING ( I J) ; 

WCHAR ( ’  ’ ) ; 

END; 
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MOVEMENT  ROUTINES 


BASICS  UNIT 


PROCEDURE  UPDOWN; 

<*  J  CAN  BE  POSITIVE  FOR  UP  AND  NEGATIVE  FOR  DOWN  *) 

VAR  INEW, JNEW, INC  :  INTEGER; 

DONE  :  BOOLEAN; 

BEGIN 

INEW:=CA. I; 

JNEW: =C~. J  +  J; 

IF  JNEW  >  MAXJ  THEN  JNEW:=MAXJ; 

IF  JNEW  <  1  THEN  JNEW:=1; 

<*  POSITVE  IF  UP  AND  NEGATIVE  IF  DOWN  *> 

IF  J  >  O  THEN 
INC: =1 
ELSE 

INC:=-1; 

DONE: =FALSE; 

REPEAT 

IF  IJPOSC INEW, JNEWD  <>  NIL  THEN 
DONE: =TRUE 
ELSE 

IF  INEW  >  1  THEN 

IF  IJPOSC INEW- 1, JNEW!  <>  NIL  THEN 
BEGIN 

INEW: —INEW  -  1; 

DONE: =TRUE; 

END 

ELSE 

IF  INEW  <  MAXI  -  1  THEN 

IF  IJPOSC I NEW+1, JNEW]  <>  NIL  THEN 
BEGIN 

INEW: =INEW  +  1; 

DONE:=TRUE; 

END; 

IF  NOT  DONE  THEN  JNEW:=JNEW  -  INC; 

UNTIL  DONE; 

C:  =  IJPOSC INEW, JNEWJ ; 

END; 
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MOVEMENT  ROUTINES 


BASICS  UNIT 


PROCEDURE  LEFTRIGHT; 

<*  LEFT  IS  NEGATIVE  AND  RIGHT  IS  POSITIVE  *> 

VAR  INEW, JNEW, INC  :  INTEGER; 

DONE  :  BOOLEAN; 


BEGIN 

I  NEW:  =C'S.  I  +  I; 

JNEW:  =C''.  J ; 

IF  INEW  >  IMAX-1  THEN  INEW:=IMAX  -  1; 

IF  INEW  <  1  THEN  INEWs=l; 

IF  I  >  O  THEN 
INCx  =1 
ELSE 

INC: =-l ; 

DONE: =FALSE; 

REPEAT 

IF  IJPOSCINEW, JNEWI  <>  NIL  THEN 
DONE: =TRUE 
ELSE 

IF  JNEW  <  MAXJ  THEN 

IF  IJPOSCINEW, JNEW+13  <>  NIL  THEN 
BEGIN 

JNEW := JNEW  +  1; 

DONE: =TRUE; 

END 

ELSE 

IF  JNEW  >  1  THEN 

IF  IJPOSCINEW, JNEW- II  <>  NIL  THEN 
BEGIN 

JNEW:=JNEW  -  1; 

DONE: =TRUE; 

END; 

IF  NOT  DONE  THEN  INEW:=INEW  -  INC; 

UNTIL  DONE; 

C: =1 JPOSC INEW, JNEW3 ; 

END; 


<*  UNIT  INITIALIZATION  PART  *> 
BEGIN 

(*  NOTHING  TO  DO  *> 

END. 
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EXECUTIVE 


MAIN  PROGRAM 


<*«S+*>  <*  TURN  COMPILER  SNAPPING  ON  FOR  SYMBOL  TABLE  *> 

PROGRAM  SYSREL; 

umttttttttmmmttMtMutmttmtttmmmmm) 

<*  *> 

<*  THIS  PROGRAM  PROVIDES  THE  USER  WITH  A  TOOL  TO  *) 

<*  GENERATE,  EDIT,  ANALYZE,  AND  SAVE  RELIABILITY  t> 

<*  SYSTEMS.  THE  SYSTEMS  CAN  CONTAIN  SERIES  AND  *) 

<*  PARALLEL  COMPONENTS,  EACH  IDENTIFIED  WITH  A  USER  t) 

<*  SUPPLIED  ID  TAG  AND  A  CONSTANT  RELIABILITY.  THE  *) 

(S  PROGRAM  WILL  ALLOW  A  USER  TO  CONFIGURE  A  SYSTEM,  t) 

<*  DETERMINE  ITS  RELIABILITY  AND  THEN  CHANGE  THE  SYSTEM  *> 

<*  A  LA  SENSITIVITY  ANALYSIS  TO  DETERMINE  METHODS  OF  *> 

<*  ENHANCING  RELIABILITY  OR  REDUCING  THE  NUMBER  OF  t) 

<*  COMPONENTS  FOR  THE  SAME  RELI ABLITY.  *> 

<*  *) 

<*  THE  PROGRAM  WAS  WRITTEN  BY  CAPT  DON  TUROS  WHILE  »> 

<*  A  STUDENT  AT  AFIT  AS  A  THESIS  EFFORT.  SOME  MATERIAL  *) 

(*  AND  ALGORITHMS  WERE  BORROWED  FROM  EXAMPLES  t) 

<*  PRESENTED  IN  THE  APPLE  3C  PASCAL  OPERATING  SYSTEM  *> 

(*  MANUAL.  SPECIFIC  MODULES  ARE  MENTIONED  IN  LINE.  t) 

<*  *> 

(t***t***t****t***tt**«tt««t*t******t****tt******t***«*t**> 

USES  TURTLEGRAPHICS, BASICS; (*  GRAPHICS  AND  USER  ROUTINES  *) 

<**I  APPLE2: INITSEG. TEXT*)  <*  INCLUDE  INITSEG  HERE  *) 


17 


APPENDIX  A 


EDIT  SEGMENT 


MAIN  PROGRAM 


SEGMENT  PROCEDURE  EDITSEG (OPT  t  BOOLEAN); 

<*  OPT  =  TRUE  ->  THEN  GRID  HAS  DATA  IN  IT  «> 
<*  ELSE  ->  NO  DATA  -  RUN  GENERATE  *> 

VAR  C  :  NODEPTR; 

ANS, NUM  s  CHAR; 

REM, NI  :  INTEGER; 


PROCEDURE  LABLE (C  s  NODEPTR); 

VAR  S  :  STRING; 

BEGIN 

DISPLAYAT <1,42, ’LABEL  ->’); 

IF  AUTO  THEN 
AUTOLAB (C) 

ELSE 

BEGIN 

DISPLAYAT (0,0, '  ID  =  ’); 

GETSTR (O, S, 2) ; 

IF  LENGTH <S)  >=  1  THEN 
C~. ID1:=SC 13; 

IF  LENGTH (S)  -  2  THEN 
CA. ID2: — SC23 
ELSE 

C~.ID2:=’ 

END; 

DISPLAYAT <0, O, ’  REL  =  ’); 

<*  MAX  LENGTH  IS  7  DIGITS  AND  DECIMAL  POINT  *) 

GETSTR <0,S,8) ; 

IF  LENGTH (S)  >  O  THEN 
C~. REL: =GETREL <S) ; 

DCOMPON (C, 5) ; 

END; 

PROCEDURE  SERIES (VAR  NI  *  INTEGER;  C  :  NODEPTR) ; FORWARD; 


18 


APPENDIX  A 


EDIT  SEGMENT  MAIN  PROGRAM 

PROCEDURE  PARALLEL (VAR  NJ  :  INTEGER)  C  :  NODEPTR) ; 

VAR  I, J,NI,NP, IHI, ILOW, JHI, JLOW, JLAP  *  INTEGER) 

TODO  :  ARRAY  Cl.. NPAR3  OF  NODEPTR) 

ABOVE, DONE, FOUND  :  BOOLEAN) 

ANS.NUM  :  CHAR; 


PROCEDURE  ERRORPAR; 

BEGIN 

IF  C^.J  =  MAXJ  THEN 
BEGIN 

(*  NO  ROOM  IN  COLUMN  *) 

WRITE (CHR (7) ,CHR(7) ») 

LABLE(C) ; 

EXIT (PARALLEL) 5 
END) 

IF  C^-PLINKCNPAR]  <>  NIL  THEN 
BEGIN 

(*  NO  PLINKS  LEFT  *> 

WRITE (CHR (7) ,CHR(7> ) ; 

LABLE(C) ; 

EX IT (PARALLEL) ) 

END 
ELSE 
BEGIN 
NPs  =0; 

WHILE  C~.PLINKCNP+13  <>  NIL  DO  NPi=NP  ♦  1) 
IF  NJ  -  1  >  NPAR  -  NP  THEN 
BEGIN 

(*  TOO  MANY  -  REDUCE  FOR  PLINKS  *) 
WRITE (CHR (7) , CHR (7) ) ; 

NJ : =NPAR  -  NP  +  1) 

END; 

END; 

END; 
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PROCEDURE  ABOVEPAR; 

VAR  NEW  i  NODEPTR; 

BEGIN 

J:=C~.J; 

JLAP: =0; 

IHI :  =C"'.  I ; 

ILOW:  =C'~.  I ; 

JHIs=C"'.  J; 

JL0W:=C~. J; 

ABOVE: =FALSE; 

DONE : =F ALSE ; 

REPEAT 
Is=C^. I; 

J:=J  +  1; 

FOUND : =FALSE ; 

(*  FIND  FIRST  COMPONENT  ABOVE  AND  LEFT  *) 
REPEAT 

IF  IJPOSCI,J3  <>  NIL  THEN 
FOUND: =TRUE 
ELSE 

I :  =  I  -  1; 


UNTIL  FOUND  OR  <1  =  0>  ; 
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IF  I  =  O  THEN 
DONE! =TRUE 
ELSE 
BEGIN 

NEW: =1 JPOSC I ,  J  3 ; 

IF  NOT  ABOVE  THEN 

<*  DETERMINE  HOW  MUCH  ROOM  AVAIL  *> 

IF  <(NEWA.I  =  C"".I>  AND  (NEW^.J  =  J >  >  OR 
<NEW^.FLINK"".  I  >  C^.I)  THEN 
BEGIN 

ABOVE: =TRUE; 

JLAP^C-'.J  +  NJ  -  J; 

JLOW: =J ; 

END; 

<*  FIND  RIGHTMOST  COMPONENT  TO  MOVE  UP  *> 

WHILE  NEW^.FLINK"".  J  =  J  DO 
NEW :  =NEW"' .  FL I NK ; 

IF  NEW"',  I  >  IHI  THEN  IHI :  =NEW"'.  I ; 

IF  NEW"'.  FL  INK"1.  I  >  C"'.  I  THEN 
BEGIN 

JHI :  =NEW"'.  J ; 

<t  FIND  LEFTMOST  TO  MOVE  UP  *) 

NEW: = I JPOSC I, J I; 

WHILE  NEW"'. BLINK"". J  =  J  DO 
NEW:  =NEW"'.  BLINK; 

IF  NEW"'.  I  <  I  LOW  THEN  ILOW:  =NEW"'.  I ; 

END; 

END; 

UNTIL  DONE  OR  <J  =  MAXJ); 

END; 
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PROCEDURE  CHECKPAR; 

BEGIN 

IF  DONE  THEN 

<*  NOT  ENOUGH  ROOM  TO  FIT  ALL  -  REDUCE  INPUT  *) 
BEGIN 

IF  JHI  +  JLAP  >  MAX J  THEN 
BEGIN 

WR I TE  <  CHR  <  7 ) ,CHR(7> ) ; 

JLAP: =MAXJ  -  JHI; 

NJ :  =  JLAP  +  JLOW  -  C^.J; 

END; 

IF  JHI  NJ  -  1  >  MAX J  THEN 
BEGIN 

WRITE  <CHR  <7) , CHR (7) ) ; 

NJ : =MAX J  -  JHI  +  1; 

END; 

END 

ELSE 

BEGIN 

IF  (JLOW  -  C^.J  =  1)  AND  (JHI  =  MAXJ)  THEN 
BEGIN 

(*  NO  ROOM  PERIOD  *) 

WRITE (CHR (7) , CHR (7) > ; 

LABLE(C) ; 

EXIT (PARALLEL) ; 

END; 

IF  ABOVE  THEN 

(*  LIMITED  ROOM  -  REDUCE  *) 

BEGIN 

IF  JHI  +  JLAP  >  MAXJ  THEN 
BEGIN 

WRITE (CHR (7) , CHR (7) ) ; 

JLAP: =MAXJ  -  JHI; 

NJ:=JLAP  +  JLOW  -  C~.J; 

END; 

END 

ELSE 

IF  JLOW  +  NJ  -  1  >  MAXJ  THEN 
BEGIN 

WRITE (CHR (7) ,CHR(7> ) ; 

NJ : =MAX J  -  JLOW  +  1; 

END; 

END; 

END; 
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PROCEDURE  SHIFTPAR; 

BEGIN 

FOR  J:=JHI  DOWNTO  JLOW  DO 
FOR  I :  =ILOW  TO  IHI  DO 

IF  IJPOSCI,JI  <>  NIL  THEN 
BEGIN 

IJPOSCI, J+JLAP3:=IJPOSCI, JU; 
IJPOSCI,  J  l'".  J:=J  +  JLAP; 
IJPOSCI, J3:=NIL; 

END; 

END; 


PROCEDURE  INSERTPAR; 

VAR  NEW  :  NODEPTR; 

BEGIN 

NEW: =NIL; 

INITNODE <C^. I , CA. J+J-NP+1 , NEW) ; 
C'-.PLINKC J+l 1 : =NEW; 
NEW~.FLINK:=C'"‘.FLINK; 

NEW'". BLINK: —C; 

TODOC J-NP+23 : =NEW; 

<*  SET  TOP  COMPONENT  FOR  PRINTER  *> 
IF  NEW^.J  >  JMAX  THEN  JMAX:  =NEW"'. J; 
END; 
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(*  PARALLEL  EXECUTIVE  ROUTINE  «> 

BEGIN 

ERRORPAR; 

ABOVEPAR; 

CHECK PAR; 

IF  JLAP  >  O  THEN  SHIFTPAR; 


TODOC 13s=C; 

FOR  J : =NP  TO  NP  +  NJ  -  2  DO 
INSERTPAR; 

FOR  J:=l  TO  NJ  DO 
BEGIN 

IF  CHECKDI5 < J, TODOC J 3 )  THEN  DISPLAY; 

DCOMPON ( TODOC  J 1 , 10)  ; 

POSITION (TODOC J 3 ) ; 

DISPLAYAT( 1,42, ’PARALLEL  ->  S#,L,N  ; 

REPEAT 

(*  PARALLEL  MENU  *> 

NUM:  *=’  8’  ; 

REPEAT 

ANSs  =GETANS <0, C ’ S’ , ’L’ , ’N’ ,CHR(27) 3)  ; 

IF  ANS  =  CHR (27)  THEN  INSTRUCT; 

UNTIL  ANS  <>  CHR(27) ; 

IF  ANS  IN  C’S’3  THEN 
BEGIN 

NUMs^GETANSlO, C’2’ . . CHR (NSER+48) , CHR (8) 3) s 
IF  NUM  <>  CHR (8)  THEN 
NIs=ORD(NUM)  -  48 
ELSE 

BACKUP (O) ; 

END; 

UNTIL  NUM  <>  CHR (8); 

CASE  ANS  OF 

'S’  s  SERIES <NI, TODOC J3 ) ; 

’L’  s  L ABLE (TODOC J 3 ) ; 

END; 

DCOMPON ( TODOC J 3, 5) ; 

END; 

END; 
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PROCEDURE  SERIES; 

VAR  I,J,ILAP,NJ  t  INTEGER; 

TODO  s  ARRAY! 1 . . NSER]  OF  NODEPTR; 
NUM, ANS  :  CHAR; 


PROCEDURE  CHECKSER; 

BEGIN 

IF  I LAP  +  IMAX  >  MAXI  -  1  THEN 
IF  C~.FLINK~. I  -  C~.I  =  1  THEN 
BEGIN 

(*  NO  ROOM  AT  ALL  *) 

WRITE(CHR<7) ,CHR<7) ) ; 

L ABLE  <  C ) ; 

EXIT (SERIES) ; 

END 

ELSE 

BEGIN 

(*  LIMITED  ROOM  -  REDUCE  *> 

WR I TE ( CHR ( 7 ) ,CHR<7> ) ; 

NI : =MAX I  -  1  -  IMAX  +  C~.FLINK'.I  -  C~.  I  -  1; 
ILAPs=C'"v.  I  +  NI  -  C'.FLINK~.  I; 

END; 

END; 
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PROCEDURE  SHIFTSER; 

VAR  LAST  *  INTEGER; 

BEGIN 

LAST:=C''.FLINK/'.  I; 

FOR  I : =IMAX  DOWNTO  LAST  DO 
FOR  J: =1  TO  MAXJ  DO 

IF  I JPOSC I, J I  <>  NIL  THEN 
BEGIN 

I JPOSC I+ILAP, J I : =1 JPOSC I , J 1 ; 
IJPOSCI, J]A. I:=I  +  I LAP ; 
IJPOSCI, J3:=NIL; 

END; 

IMAX:=IMAX  +  ILAP; 

END; 


PROCEDURE  INSERTSER; 


VAR  NEW  s  NODEPTR; 

BEGIN 

NEW: —NIL; 

INITNODEtC"'.  I  +  I-ljC'".  J,NEW>  ; 
NEW"'. FLINK:=C"'. FLINK; 

IF  NEW'^FLINK"'. J  =  NEW~.J  THEN 
NEW"*.  FLINK''.  BLINK:  =NEW; 

NEW"'.  BLINK:  =C; 

C"'.  FLINK:  =NEW; 

TODOC II: =NEW; 

END; 
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(<  SERIES  EXECUTIVE  ROUTINE  *> 

BEGIN 

ILAP:=CA.I  +  NI  -  CA.FLINK~.  I; 

(*  POSITIVE  IF  COMPONENT  OVERLAP  *) 

CHECKSER; 

IF  I LAP  >  O  THEN  SHIFTSER; 

TODOC 13: — C; 

FOR  Is=  NI  DOWNTO  2  DO 
INSERTSER; 

FOR  I :  =  1  TO  NI  DO 
BEGIN 

IF  CHECKDIS  < I f  TODOC II)  THEN  DISPLAY; 

DCOMPON ( TODOC 11,10); 

POSITION  (TODOC  ID; 

DISPLAYAT < 1 , 42, * SERIES  ->  P#,L,N  ->  ' ) ; 

REPEAT 

(*  SERIES  MENU  *) 

NUM! =’6’ ; 

REPEAT 

ANS: =GETANS  <0, C  *  P* , ’L' , ' N’ , CHR (27) 1 > ; 

IF  ANS  =  CHR (27)  THEN  INSTRUCT; 

UNTIL  ANS  <>  CHR (27) ; 

IF  ANS  IN  C’P’I  THEN 
BEGIN 

NUM:  =GETANS  (O,  C  ’  2’ .  .  CHR  (NPAR ,  CHR  (8)  1 )  ; 
IF  NUM  <>  CHR (8)  THEN 
NJ : =ORD (NUM)  -  48 
ELSE 

BACKUP (O) ; 

END; 

UNTIL  NUM  <>  CHR (8); 

CASE  ANS  OF 

rP’  :  PARALLEL (NJ , TODOC II); 

” L’  s  LABLE (TODOC 13); 

END; 

DCOMPON ( TODOC 11,5); 

END; 

END; 
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PROCEDURE  REMOVE (VAR  C  :  NODEPTR) ; 
VAR  K  t  INTEGER; 

BEGIN 

IF  O'".  BLINK'-'. FL INK  =  C  THEN 
BEGIN 

IJPOSCC'".  I,C'M3:=NIL; 

C~.  BLINK''.  FLINK:  =CA.  FLINK; 

END 

ELSE 

FOR  K: =  NPAR  DOWNTO  1  DO 

IF  C~.  BLINK''.  PLINKCK3  =  C  THEN 
BEGIN 

IJPOSCC-'.  I,C'.  J3:«NIL; 

C-'.  BLINK-'.  PLINKCK3s=NIL; 
END; 

END; 


PROCEDURE  DEFAULT; 

VAR  S  s  STRING; 

BEGIN 

D I SPLAY AT <1,0, ’CHANGE  DEFAULT  RELIABILITY  =  ’); 
GETSTR (O, S, 8) ; 

IF  LENGTH (S)  >  O  THEN 
DRELi =GETREL (S) ; 

END; 
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PROCEDURE  CHANGE (C  :  NODEPTR) ; 

VAR  ANS, NUM  :  CHAR; 

NI  :  INTEGER; 


BEGIN 

REPEAT 

DCOMPON ( C , 10) ; 

POSITION (C) ; 

DISPLAYAT< 1,42, ’CHANGE  ->  P#, S#, L, D, T, Q  ->  ' )  ; 

REPEAT 

<*  CHANGE  MENU  *) 

NUM: =’6’ ; 

<*  INSURE  SERIES  TO  ALLOW  PARALLEL  *) 

REPEAT 

IF  (C^.FLINK^. J  =  C~. J > OR  <C^. BLINK^. J  =  C~.J)  THEN 
ANS; =’ P’ 

ELSE 

ANS: =' S’ ; 

ANS:=GETANS<0, CANS, 'S’ , 'L' ,’D’ ,’T' ,  '3' ,CHR<27>  3) ; 
IF  ANS  =  CHR ( 27 )  THEN  INSTRUCT; 

UNTIL  ANS  <>  CHR  < 27 ) ; 

IF  ANS  IN  C'P',’S’3  THEN 
BEGIN 

IF  ANS  =  'P'  THEN 
NUM: =CHR (NPAR+48) 

ELSE 

NUM: =CHR (NSER+48) ; 

NUM: =GETANS  <0, C  ’  2' . . NUM, CHR (8) 3 ) ; 

IF  NUM  <>  CHR (8)  THEN 
NI : =ORD (NUM)  -  48 
ELSE 

BACKUP <0) ; 

END; 

UNTIL  NUM  <>  CHR (8) ; 

CASE  ANS  OF 

'P'  :  PARALLEL (NI , C) ; 

'S'  :  SERIES <NI, C) ; 

'L'  :  LABLE(C); 

'D'  :  DEFAULT; 

'T'  :  AUTO: =NOT  AUTO; 

END; 

UNTIL  ANS  IN  C ’ Q’ , ’ P’ , ’ S’ , ’ L' 3 ; 

END; 
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(*  EDIT  EXECUTIVE  ROUTINE  *) 

BEGIN 

C:=IJPOSCl, 13; 

REM: =1 ; 

IF  NOT  OPT  THEN 
BEGIN 

<t  GENERATE  SEQUENCE  *> 

DISPLAY; 

DCOMPON (C, lO) ; 

POSITIONS) ; 

D I SPLAY AT (1,42, ’GENERATE  ->  P#,S#  ; 

REPEAT 
REPEAT 

ANS:=GETANS(0, C’P’, ’S’ ,CHR<27) 3) ; 

IF  ANS  =  CHR ( 27 >  THEN  INSTRUCT; 

UNTIL  ANS  <>  CHR (27); 

IF  ANS  IN  C’P’ 3  THEN 
NUM: -CHR (NPAR+48) 

ELSE 

NUM: =CHR (NSER+48) ; 

NUM: =GETANS (O, C  ’  2’  . .NUM, CHR (8) 3 ) ; 

IF  NUM  =  CHR (8)  THEN  BACKUP (O) ; 

UNTIL  NUM  <>  CHR (8); 

NI : =ORD (NUM)  -  48; 

CASE  ANS  OF 

’P’  :  PARALLEL (NI , C) ; 

’S’  :  SERIES (N1,C); 

END; 

END; 
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<t  EDIT  SEQUENCE  *) 

REPEAT 

IF  CH£CKDIS(REM,C)  THEN  DISPLAY; 

REM: *0; 

DCOMPON(C, 10) ; 

POSITION (C) ; 

DISPLAYAT ( 1 , 42, ' EDIT  ->  R,C, I#,J#,K*,M#,H,Q  ->‘  ’>; 

REPEAT 

(*  EDIT  MENU  *) 

NUM:  *=’  6’  ; 

REPEAT 

ANS:=CHR(27) ; 

ANS:=GETANS<0, C’R' , ’C’ , ' I' , ' J» , 'K' , *M’ , 'H' ,  ’Q» , ANSI) ; 
IF  ANS  =  CHR (27)  THEN  INSTRUCT; 

UNTIL  ANS  <>  CHR < 27 ) ; 

IF  ANS  IN  E'r,’J','K','M')  THEN 
BEGIN 

NUM:  =GETANS  (O,  C  ’  1  ’  . .  ’  9’ ,  CHR  <B)  1 ) ; 

IF  NUM  <>  CHR (8)  THEN 
NI s  =ORD (NUM)  -  48 
ELSE 

BACKUP (O) ; 

END; 

UNTIL  NUM  <>  CHR (8); 

DCOMPON (C, 5) ; 

CASE  ANS  OF 


'I*  :  UPDOWN <  N I ,  C ) ; 

’J*  :  LEFTR1GHT (-NI ,  C)  ; 
’K’  :  LEFTRIGHT (NI ,C) ; 

’ M*  8  UPDOWN ( -NI, C) ; 

’R’  :  REMOVE (C); 

'C'  :  CHANGE (C); 

’H’  :  C: =1 JPOSC 1,13; 
END; 

IF  ANS  =  ’R*  THEN 
BEGIN 
REM: =1 ; 

C:=C~. BLINK; 

IF  C  «  NIL  THEN 
C: -I JPOSC 1,11; 

END; 

UNTIL  ANS  IN  C’Q']; 

DATA: =TRUE; 

END; 
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<t*I  APPLE2* ANALSEG. TEXT*)  (*  INCLUDE  ANAL  SEGMENT  HERE  *) 


<*  MAIN  PROGRAM  EXECUTIVE  *) 

BEGIN 

INITSEG<TRUE)  ; 

EDITSE6 (DATA) ; 

REPEAT 

<*  MAIN  MENU  *) 

IF  DATA  THEN 
BEGIN 

DISPLAYAT <1,0, ’ ->  E) DIT, A) NAL, P) RINT, S) TORE, I  )NIT, Q)UIT’ ) ; 
REPEAT 

ANSs  =CHR  <27 ) ; 

ANS: =GETANS  <0, C  ’  E’ , ’ A’ , ’ P* , *  S’ , ' I ’ , ’Q’ , ANSI) ; 

IF  ANS  =  CHR  < 27 )  THEN  INSTRUCT; 

UNTIL  ANS  <>  CHR  <27) ; 

END 

ELSE 

ANS s  =  ’  E  ’ ; 

CASE  ANS  OF 

’E’  s  EDITSEG (DATA) ; 

’A’  s  ANALSEG < 1 ) ; 

’P’  s  ANALSEG <2)J 
'S’  s  ANALSEG (3); 

’I’  s  INI TSEG (FALSE >$ 

END; 

UNTIL  ANS  =  ’Q’; 

GOTOXY (0,0) ; 

CRT (EOS) ; 

GOTOXY (O, 15) ; 

WR I TELN<’ MEMORY  AVAILIBLE  -  ’ , MEMAVAIL) ; 

END. 
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<* 

(*  THIS  SEGMENT  PROVIDES  FOR  ALL  THE  INITIAL- 

<*  IZATION  OR  CLEARING  OF  THE  DATA  IN  THE  GRID. 

<*  THE  GETCRT  PROCEDURE  PROVIDES  TERMINAL  INDE- 
<*  PENDENT  CONSOLE  CONTROL.  THE  EXECUTIVE  IS 
<*  RESPONSIBLE  TO  PROVIDE  ALL  THE  DEFAULTS  THE 
<*  PROGRAM  NEEDS.  THE  GETDATA  STUB  IS  PROVIDE  TO 
<t  ALLOW  FOR  INTERACTION  WITH  A  DISK  FILE  IN  THE 
<*  FUTURE. 

(* 

SEGMENT  PROCEDURE  INITSEG(OPT  s  BOOLEAN); 

<*  OPT  =  TRUE  ->  INITIAL  TIME  IN  ROUTINE  *> 

(*  ELSE  ->  REINITIALIZE  POSSIBILITIES  *) 

VAR  S  :  STRING; 

ANS  :  CHAR; 


PROCEDURE  GETCRT; 

(*  CODE  USED  FROM  DISKIO  PROGRAM  *) 

VAR  I, BYTE  s  INTEGER; 

BUFFER  ;  PACKED  ARRAYCO. .5113  OF  CHAR; 
F  s  FILE; 


BEGIN 

RESET <F, ’SYSTEM. MI SC INFO’ 
I : —BLOCKHEAD (F, BUFFER, 1 ) ; 
CLOSE <F) ; 

BYTE : =ORD ( BUFFER C 72 3 ) ; 
CRTINFOCLI 3  :=BUFFERC623; 
CRT I NFO C  EOS  3 : = BUFFER C  64  3 ; 
CRT I NFO  C  EOL  3 : =BUFFER C  65  3 ; 
CRTINFOCRT3  : =BUFFER C 66 3 ; 
CRTINFOCUP3  : =BUFFER C 67 3 ; 
CRTINFOCLT3  : =BUFFERC683 ; 
CRTINFOCDN3  :=CHR<10); 
END; 


> ; 


PREFIXEDCLI 3  : =F ALSE ; 

PREFI XEDCEOS3 : =ODD (BYTE  DIV  8); 
PREF I XED C EOL 3 : =ODD < BYTE  DIV  4); 
PREFI XEDCRT3  s  =ODD (BYTE  DIV  2); 
PPEFI XEDCUP3  : =ODD (BYTE) ; 

PREF 1XEDCLT3: =ODD < BYTE  DIV  32); 
PREFI XEDCDN3  : “FALSE; 
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PROCEDURE  PROMPTAT <Y  s  INTEGER;  S  :  STRING); 
<*  BARROWED  FROM  DISKIO  *) 

BEGIN 

UNITCLEAR(i) ; 

GOTOXY  <0, Y) ; 

WRITE (S) ; 

CRT(EOL) ; 

END; 


PROCEDURE  INTRO; 

BEGIN 

GOTOXY <0,0); 

CRT (EOS) ; 

PROMPTATd,  ’RELIABILITY  SYSTEM  GENERATION  PROGRAM*  )  ; 
PROMPTAT <3, ’SERIES  AND  PARALLEL  STRUCTURES  ONLY’); 
PROMPTAT <4, ’A  MAX  OF  6  COMPONENTS  MAY  BE  IN  PARALLEL’); 
PROMPTAT <5, ’THE  SYSTEM  MAY  NOT  EXCEED  A  20  X  20  SIZE’); 
PROMPTAT < 6, ’ lOO  COMPONENTS  MAXIMUM’); 

PROMPTAT (7, ’CURSOR  COMPONENT  IS  WHITE  ON  BLACK’); 
PROMPTAT (lO, ’DEFAULT  FOR  AUTOLABELLING  IS  ON’); 

PROMPTAT (1 1 ,’ DEFAULT  FOR  RELIABILITY  IS  0.5’); 

PROMPTAT <1 3, ’< ESC >  TO  SHOW  INSTRUCTIONS’); 

PROMPTAT < 14, ’<  <-  >  WORKS  FOR  A  MULT I -KEYSTROKE  INPUT'); 
PROMPTAT < 15, ’< RETURN >  GIVES  CURRENT  VALUE  FOR  LABEL'); 
PROMPTAT (17, ’SINGLE  BEEP  -  INPUT  ERROR’); 

PROMPTAT (18, ’DOUBLE  BEEP  -  LIMIT  ERROR’); 

PROMPTAT (21, 'ANY  KEY  TO  CONTINUE’); 

PROMPTAT (22, ’<RETURN>  TO  CHANGE  DEFAULTS’); 

IF  NOT  OPT  THEN 

PROMPTAT (23, ’< ESC >  TO  RETURN  TO  MAIN  MENU’); 

END; 
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PROCEDURE  INITDISPLAY; 

VAR  I,J  s  INTEGER; 

C  *  NODEPTR; 

BEGIN 
Cs  =NIL; 

INITTURTLE; 

VIEWPORT  <0,MAXX,0,MAXY) ; 

COLORt  =WHITE; 

DISPLAYAT( 1,0, ’PLEASE  WAIT  -  INITIALIZING  SYSTEM’); 
FOR  I 1 =1  TO  MAXI  DO 
FOR  J:=  1  TO  MAXJ  DO 
IJPOSCI, J3s=NIL; 

I CUR: =1  $ 

JCUR: =1 ; 

IMAX: =2; 

JMAX: =1 ; 

INITNODE <2, 1,0  ; 

CA. ID1:=’ *’ ; 

CA.REL:=1.0; 

INITNODEd,  1,C^. BLINK)  $ 

CA.  BLINK''.  FLINK:=C; 

END; 


PROCEDURE  GETDATA; 

VAR  ANS  :  CHAR; 

BEGIN 

PROMPTAT< 15, ’ROUTINE  NOT  IMPLEMENTED’); 
PROMPTATU7,  ’ANY  KEY  TO  CONTINUE’); 

ANS: =GETANS  <  1 ,  C  ’  ’..’Z’J); 

DATA: =FALSE; 

INITDISPLAY; 

END; 
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PROCEDURE  INFO | 

BEGIN 

GOTOXY (0,0) ; 

CRT (EOS); 

PROMPTAT (O, ' E) DITING  PROCESS  COMMANDS'); 

PROMPTAT ( 1 , ’ GEN  P#  ->  *  OF  PARALLEL  COMPONENTS'); 

PROMPTAT <2, '  S#  ->  #  OF  SERIES  COMPONENTS’); 

PROMPTAT (3,’  L  ->  LABEL  CURRENT  COMPONENT’); 

PROMPTAT <4, '  N  ->  MOVE  TO  NEXT  COMPONENT’); 

PROMPTAT <5, 'EDIT  R  ->  REMOVE  A  COMPONENT’); 

PROMPTAT <6, ’  C  ->  CHANGE  A  COMPONENT’); 

PROMPTAT <7, ’  P#  ->  AS  ABOVE’); 

PROMPTAT (8,’  S#  ->  AS  ABOVE’); 

PROMPTAT (9,’  L  ->  AS  ABOVE’); 

PROMPTAT < lO, '  D  ->  DEFAULT  CHANGE’); 

PROMPTAT < 1 1 , ’  T  ->  TOGGLE  AUTOLABELLING’); 

PROMPTAT < 12, ’  Q  ->  QUIT  CHANGE’); 

PROMPTAT ( 13, ’  I#/M#  ->  GO  UP/DOWN  #  LOCATIONS’); 

PROMPTAT <14, ’  J#/K#  ->  GO  LEFT/RIGHT  #  LOCATIONS’); 

PROMPTAT ( 15, ’  H  ->  GO  TO  LOWER  LEFT  LOCATION’); 

PROMPTAT < 16, ’  Q  ->  RETURN  TO  MAIN  MENU’); 

PROMPTAT <17, ’A) NALYZE  GRID  RELIABILITY’); 

PROMPTAT < 18, ’P)RINT  GRID  TO  PAPER’); 

PROMPTAT <1 9, ’S) TORE  GRID  TO  DISK’); 

PROMPTAT <20, ’ I ) INITIALIZING  PROCESS’ ) ; 

PROMPTAT <21 , ’ Q) UIT  PROGRAM' ) ; 

PROMPTAT <23, 'ANY  KEY  TO  RETURN’); 

END; 


36 


APPENDIX  A 


INITIALIZE  SEGMENT 


MAIN  PROGRAM 


(*  INITSEG  EXECUTIVE  ROUTINE  *) 

BEGIN 

IF  OPT  THEN  GETCRT; 

INTRO; 

TEXTMODE; 

IF  OPT  THEN 
ANS: =CHR (13) 

ELSE 

ANSi=CHR (27)  ; 

ANSs =GETANS < 1 , C ’  ’ . . ’ Z’ ,CHR<13) ,ANS3) ; 
IF  ANS  =  CHR ( 27 )  THEN 
BEGIN 

GRAFMODE; 

INFO; 

EXIT ( INITSEG) ; 

END; 


DREL:  =0.  5; 

LAB1:=’  A’  ; 

LAB2:*’/’ ; 

NODES: =0; 

AUTO: “TRUE; 

DATA: =FALSE; 

IF  ANS  *  CHR (13)  THEN 
BEGIN 

GOTOXY (0,0) ; 

CRT  CEOS) ; 

PROMPTATC 15, ’AUTOLABELLING  (Y  OR  N)  =  ’); 

AUTO: =(GET ANSI 1, C’ Y’ , ’N' 3)  IN  C'Y’3); 

PROMPTATC 15, ’CHANGE  THE  DEFAULT  RELIABILITY?’); 
PROMPTATC 16, ’ENTER  <RETURN>  FOR  NO  CHANGE  OR’); 
PROMPTATC 17, ’ANY  #  FROM  1  TO  . OOOO  :  REL  =  '); 

GETSTR ( 1 , S, 8) ; 

IF  LENGTH (S)  >  O  THEN  DREL: “GETREL CS) ; 

END; 

GOTOXY CO, 0) ; 

CRT  CEOS) ; 

PROMPTATC 15, ’GET  DATA  FROM  DISK?  CY  OR  N)  =  ’); 

DATA: “CGETANS C1,C’Y’,*N’3>  IN  C’Y’3); 

IF  DATA  THEN 
GETDATA 
ELSE 

INITDISPLAY; 

INFO; 

END; 
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<* 

<*  THIS  SEGMENT  PROVIDES  THE  AUTOMATED 

<*  EQUATIONS  TO  DO  THE  RELIABILITY  CALULATIONS. 

(*  THE  STORDATA  STUB  PROVIDES  FOR  THE  INTERFACE  TO 
<*  DISK  THAT  WILL  BE  IMPLEMENTED  IN  THE  FUTURE,  . 
(*  THIS  ROUTINE  ALSO  PROVIDES  THE  PROCEDURE  TO 
(*  PRINT  THE  SYSTEM  TO  HARD  COPY. 

(* 


SEGMENT  PROCEDURE  ANALSEG <OPT  :  INTEGER); 


(* 

OPT 

=  1 

-> 

CALL 

ANALYZE  ROUTINE 

*) 

(* 

OPT 

=  2 

-> 

CALL 

PRINT  ROUTINE 

*) 

(* 

OPT 

=  3 

-> 

CALL 

STORDATA  ROUTINE 

*> 

VAR  REL  :  REAL; 

PROCEDURE  PRINT (OPT  :  BOOLEAN);  FORWARD; 


PROCEDURE  ANALYZE (OPT  :  BOOLEAN); 

(*  OPT  =  TRUE  ->  CALL  THE  PRINT  ROUTINE  *> 

(*  ELSE  ~>  CALLED  FROM  PRINT  ROUTINE  *) 

VAR  RL  s  STRINGC4D; 

I,J  :  INTEGER; 

PROCEDURE  ANALPAR ( VAR  I,J  s  INTEGER;  VAR  REL: REAL) ; FORWARD; 
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PROCEDURE  ANALMULT (VAR  I,J  s  INTEGER;  VAR  REL  s  REAL); 

VAR  R  :  REAL; 

C  s  NODEPTR; 

BEGIN 

C: =IJPOSC I , J  3 ; 

IF  C^. PLINKC 1 3  =  NIL  THEN 
BEGIN 

<*  NEXT  IS  SINGLE  COMPONENT  *) 

REL: =REL  $  C~.REL; 

I:=CA.FLINKA. I; 

J:=C'.FLINK'".  J; 

END 

ELSE 

BEGIN 

<*  NEXT  IS  PARALLEL  STRUCTURE  *> 

<*  ANALPAR  UPATES  I,J  AND  RELIABILITY  *) 

R:  =  1 ; 

ANALPARU,  J,R) ; 

REL: =REL  *  R; 

END; 

END; 


PROCEDURE  ANALSER < VAR  I,J  :  INTEGER;  VAR  REL  :  REAL); 

VAR  ROW  :  INTEGER; 

BEGIN 
ROW: =J ; 

REL: =1 ; 

<*  ANALMULT  UPDATES  I,J  AND  RELIABILITY  *) 

REPEAT 

ANALMULT  < I , J , REL ) ; 

UNTIL  J  <  ROW; 

END; 
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PROCEDURE  ANALPAR; 

VAR  SERREL  s  ARRAY  Cl.. NP AR  3  OF  REAL; 

SEREND  :  ARRAY  Cl.. NPAR I  OF  INTEGER; 
K ,  H I , N J , ROW  :  INTEGER; 

R  s  REAL; 

C  s  NODEPTR; 

DONE, CLOSE  :  BOOLEAN; 


BEGIN 

<*  SERREL  HAS  SERIES  RELIABILITY  *> 

<*  SEREND  HAS  LAST  SERIES  COMPONENT  LOCATION  t) 
HI s  =1 ; 

C:=IJPOSCI, J3; 

Is=C^.FLINK^. I; 

J:=C'S.FLINK"'.J; 

REL: =C^. REL; 

DONE: =FALSE; 

N  J :  =  1 ; 

REPEAT 

<*  CHECK  FOR  PARALLEL  STRUCTURES  *) 

IF  C^-PLINKCNJ]  =  NIL  THEN 
DONE : =TRUE 
ELSE 
BEGIN 

SERREL  C  N J  3 ; =0 . 0 ; 

SEREND  C  N J 3 : =H I ; 

NJ:=NJ  +  l; 

END; 

UNTIL  DONE  OR  <NJ  >  NPAR); 

NJ:=NJ  -  1; 

<*  DETERMINE  SERIES  RELIABILITY  *> 

FOR  K:=l  TO  NJ  DO 
BEGIN 

ROW:  =C"'.  PLINKCKI^.  J ; 

ANALSER  <  SEREND  C  K  3 , ROW , SERREL  C  K  3  >  ; 

IF  SERENDCK3  >  HI  THEN  HI : =SERENDCK3 ; 

END; 
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<*  DETERMINE  PARALLEL  RELIABILITY  *) 

DONE: =FALSE; 

REPEAT 

C:=I JPOSCI, J3; 

CLOSE: =FALSE; 

FOR  K:=l  TO  NJ  DO 

IF  I  =  SERENDCK3  THEN  CLOSE: =TRUE; 

<*  CLOSE  =  TRUE  ->  CLOSE  A  PARALLEL  STRUCTURE  *> 
IF  CLOSE  THEN 
BEGIN 
R:  =1 ; 

(*  DETERMINE  PARALLEL  BASE  RELIABILITY  *) 

FOR  K:=l  TO  NJ  DO 

IF  I  =  SERENDCK3  THEN 
BEGIN 

R:=R  *  <1  -  SERRELCK3  > ; 

SERENDCK3 : =0; 

END; 

<*  PARALLEL  RELIABLITY  EQUATION  *) 

REL: =1  -  <1  -  REL)  *  R; 

IF  I  =  HI  THEN  DONE: =TRUE; 

END 

ELSE 

ANALMULT (I, J, REL ) ; 

UNTIL  DONE; 

END; 
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<t  ANALYZE  EXECUTIVE  ROUTINE  *) 

BEGIN 

DISPLA VAT <1,0, 'PLEASE  WAIT  -  ANALYZING  THE  SYSTEM' > ; 

I  *  “1 5 
Js«l; 

REPEAT 

ANALMULT  <  I ,  J ,  REL )  ; 

UNTIL  I  >=  IMAX; 

DISPLAYAT (1,0, 'RELIABILITY  =  '); 

(*  lOOOO  TO  GIVE  4  DIGITS  *) 

I: -ROUND (REL  *  lOOOO) ; 

IF  I  *  lOOOO  THEN 
WSTRIN6(' 1.0' ) 

ELSE 

BEGIN 

STR(I,RL) ; 

IF  I  <  lOOO  THEN  RL: =CONCAT  < ’ O' , RL> ; 

IF  I  <  lOO  THEN  RLs  =CONCAT ( ’ O’ , RL) ; 

IF  I  <  lO  THEN  RL:-CONCAT (’O’ ,RL) ; 

WCHAR (’.’); 

WSTRING (RL) ; 

END; 

IF  OPT  THEN 

WSTRING ( '  -  <RET>  FOR  PRINT') 

ELSE 

WSTRING!'  -  ANY  KEY’); 

IF  (GETANS (2, C ’  ’ . . ’ Z’ ,CHR(13) 3)  IN  CCHR(13)J)  AND  OPT  THEN 
PRINT (FALSE) ; 

END; 
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(*  OPT  =  TRUE  ->  CALL  ANALYZE  ROUTINE  *) 

<*  ELSE  ->  CALLED  BY  ANALYZE  ROUTINE  *) 

VAR  LEFT, RIGHT  s  INTEGER; 

ANS  s  CHAR; 

P  *  TEXT; 

S  :  STRING; 


PROCEDURE  OUT <TOP,BOT, LEFT, RIGHT  s  INTEGER); 

VAR  I , J, K  :  INTEGER; 

C  s  NODEPTR; 

B8  :  STRINGC8J ; 


PROCEDURE  PARQUT (OPT  s  INTEGER); 

<*  OPT  *  ODD  ->  FIRST  LINK  OF  POSSIBLE  PAIR 
<*  OPT  =  EVEN  ~>  SECOND  LINK  OF  PAIR 

BEGIN 

FOR  J s  =LEFT  TO  RIGHT  DO 
BEGIN 

Cs=IJPOSCJ, ID; 

IF  C  =  NIL  THEN 
WRITE (P,B8) 

ELSE 

BEGIN 

Cs =C~ . PL INKC OPT 3 ; 

IF  C  =  NIL  THEN 
WRITE <P,B8) 

ELSE 

IF  ODD<OPT)  THEN 

WRITE <P, '  ,C~.  Js2,  ’  ') 

ELSE 

WRITEtP, '  /’ ,C~. J*2, ’  '); 

END; 

END; 

END; 
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<*  PROCEDURE  OUT  MAIN  BODY.*) 

BEGIN 

B8i  =’  ’; 

<*  WRITE  -  NO  CR  OR  LF  *) 

<*  WRITELN  -  CR  AND  LF  t) 

FOR  I i =TOP  DOWNTO  BOT  DO 
BEGIN 

<*  ROW/COL  POSITION  t) 

FOR  Js=LEFT  TO  RIGHT  DO 
BEGIN 

Cs=IJPOSCJ, ID; 

IF  C  *  NIL  THEN 
WRITE  <P, B8) 

ELSE 

WRITE (P, *  *' , C~. J:2, ,CA. 1:2, '  ’>; 

END; 

WRITELN (P) ; 

(*  RELIABILITY  #.####  *) 

FOR  Js=LEFT  TO  RIGHT  DO 
BEGIN 

C:~ IJPOSCJ, II; 

IF  C  «  NIL  THEN 
WRITE  <P, B8) 

ELSE 

WRITE<P,C~.REL*7s4,’  '); 

END; 

WRITELN (P); 

(*  ROW/COL  OF  FORWARD  LINK  *> 

FOR  J:=LEFT  TO  RIGHT  DO 
BEGIN 

C:=IJPOSCJ, II; 

IF  C  *  NIL  THEN 
WRITE <P,B8> 

ELSE 

BEGIN 

C:=C~.FLINK; 

IF  C  =  NIL  THEN 
WRITE <P,B8> 

ELSE 

WRITE  <P,  ’  >’,C~.J:2,'/’,C‘'.Is2,’  '); 

END; 

END; 

WRITELN (P) ; 
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.(*  ROW/COL  OF  BACK  LINK  *> 

FOR  J:=LEFT  TO  RIGHT  DO 
BEGIN 

Cs=IJPOSCJ, 13; 

IF  C  *  NIL  THEN 
WRITE<P,B8> 

ELSE 

BEGIN 

Cs=C^. BLINK; 

IF  C  =  NIL  THEN 
WRITE <P,B8) 

ELSE 

WRITE  <P,  '  < ' , C^. J : 2, ' /' ,C^. I s  2, ’  *); 

END; 

END; 

WRITELN(P) ; 

(*  ROW  OF  PARALLEL  LINKS  -  SAME  COLUMN  *> 

Ks=l; 

REPEAT 

IF  K  <=  NPAR  THEN 
PAROUT(K) ; 

(*  CR  BUT  NO  LF  FOR  EVEN  PL INK  *> 

(*  CHR (13)  ALWAYS  HAS  LF  SO  MUST  USE  *) 

<*  CHR ( 141 )  IN  PASCAL  *) 

WRITE (P, CHR (141 ) ) ; 

IF  K  +  1  <=*  NPAR  THEN 
PAROUT  <K+1 ) ; 

WRITELN(P); 

K:=K  +  2; 

UNTIL  K  >  NPAR; 

(*  BLANK  LINE  BETWEEN  ROWS  *> 

WRITELN(P) ; 

END; 

END; 
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(*  PRINT  EXECUTIVE  ROUTINE  t> 

BEGIN 

RENRITE (P, ’ PRINTERS ’ >  ; 

DISPLAYAT(1,0, 'ENTER  PRINT  TITLE  ->  * ) ; 
GETSTR(0,S,20> ; 

IF  LENGTH (S)  =  O  THEN 

Ss  =CONCAT < '  TEST  SYSTEM  ’>; 

IF  OPT  THEN 
BEGIN 

DISPLAYAT< 1,0, ’ANALYZE  SYSTEM  (Y  OR  N)  ->  '); 
ANSs  =GETANS <0, C  ’  Y’ ,  ’  N' ,CHR(27)  3)  ; 

IF  ANS  IN  C’Y’3  THEN 
ANALYZE (FALSE) 

ELSE 

IF  ANS  =  CHR  < 27 )  THEN 
EXIT (PRINT) ; 

END; 

DISPLAYAT (1,0, 'PLEASE  WAIT  -  PRINTING  GRID'); 
LEFTs =1; 

REPEAT 

IF  IMAX  -  1  <=  LEFT  +  9  THEN 
RIGHT: =IMAX  -  1 
ELSE 

RIGHT: =LEFT  +  9; 

WRITE (P» '  RELIABILITY  SYSTEMS  ',S>; 
WRITELN(P, '  RELIABILITY  =  ',RELs7s4>; 

WRITELN (P) ; 

OUT (JMAX, 1, LEFT, RIGHT) ; 

PAGE (P) ; 

LEFTS =LEFT  +  10; 

UNTIL  LEFT  >  IMAX  -  1; 

CLOSE (P) ; 

END; 
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PROCEDURE  STORDATA; 

VAR  ANS  J  CHAR; 

BEGIN 

DISPLAYAT <1,0, ’ROUTINE  NOT  IMPLEMENTED 
ANS;  “GET ANS  (2,  C  *  ’..'Z’D; 

END) 


(*  ANALSE6  EXECUTIVE  ROUTINE  *> 
BEGIN 

RELs-l.O; 

CASE  OPT  OF 

1  :  ANALYZE (TRUE) ; 

2  :  PRINT (TRUE); 

3  S  STORDATA; 

END; 

END; 


MAIN  PROGRAM 


ANY  KpY’ ) ; 
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